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3.0 


4.0 


6.0 
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SEQ 003 


2.4.1 SYSTEM CONFIGURATION 
2.4.2 TEST EXECUTION TIMES 


ERROR INFORMATION 


3.1 


ERROR REPOR) ING 
3.1.1 ERROR @1 - COMMAND PACKET ADORESS IS NOT ON A 
MODULO 4 BOUNDRY 


3.1.2 ERROR @2 - TSOS NOT READY 

3.1.3 ERROR @3 - NO RESPONSE ERRORS 

3.1.4 ERROR @4 - NO INTERRUPT ERROR 

3.1.5 SPECIAL CONDITION ERRORS 
3.1.5.1 ERROR @5 - TCCO, UNDEFINED SPECIAL CONDITION 
3.1.5.2 ERROR @6 - TCC1, ATTENTION CONDITION 
3.1.5.3 ERROR @7 - TCC2, TAPE STATUS ALERT 
3.1.5.4 ERROR @6 - TCCS, FUNCTION REJECT 
3.1.5.5 ERROR 09 - TCC4, RECOVERABLE 
3.1.5.6 ERROR #1 - Tccs,. 
3.1.5.7 ERROR @11- TCC6. UNRECOVERABLE ERROR 
3.1.5.6 ERROR @12- TCC7, FATAL SUBSYSTEM ERROR 

3.1.6 ERROR #13 - RFC NON-ZERO ERROR 

3.1.7 ERROR 014 - RETRY LIMIT EXCEEDED 

3.1.6 ERROR #15 - TOO MANY INTERRUPTS 

3.1.9 non @16 - CAPSTAN RUNAWAY 

3.1.10 #17 - DATA COMPARE ERRORS 

ERROR HALTS 

TEST 1 - BASIC FUNCTIONS 

TEST 2 - DATA RELIABILITY 

TEST 3 - WRITE COMPATABILITY /WAITE UTILITY 

TEST 4 - READ COMPATABILITY/READ UTILITY 

TEST 5S - RANDOM/OPERATOR SELECTED COMMAND SEQUENCE 


AL 
Q-BUS INTERFACE SPECIFICATIONS 
BIT DEFINITIONS FOR TSVOS/TSOS REGISTERS 


3.1 TSVOS/TSOS REGISTER SUMMARY 
2 TSVOS STATUS REGISTER (TSSR) 
2.1 TSVOS EXTENDED DATA BUFFER REGISTER (TSD8x) 
3 EXTENDED STATUS REGISTER 0 (XSTATO) 
4 EXTENDED STATUS REGISTER 1 (XSTAT1) 


6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 
6.3.6 EXTENDED STATUS REGISTER 3 (XSTATS) 
6.3.7 EXTENDED STATUS REGISTER 4 (XSTAT4) 


7.0 OIAGNOSTIC HISTORY 


1.0 GENERAL INFORMATION 


eeeee re eee eaeeeee 


THIS PROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA RELIABILITY 
TEST, OR A COMPATABILITY TEST. 


1.1.2 STRUCTURE OF PROGRAM 


THIS DIAGNOSTIC IS A SINGLE PROGRAM 
FROM THE STANDPOINT OF THE OIAGNOSTIC USER, BUT IT CONTAINS A CONTROL 
MODULE RELEASED INDEPEND.NTLY AS A DIAGNOSTIC SUPERVISOR. 


1.1.3 MEMORY MAP 





a a a ne ne a ae a me oe ee nn ee a a = 


CVTSEBO TSVOS DATA RELIABILITY MACRO M1113 30-NOV-83 10:17 SEQ 005 
219 ! ! 
220 ! ! 
221 : XXDP « ! 
222 ! ! 
223 TITTT  ---- n-ne ene eenne 
= 
226 FREE MEMORY SPACE FOR WR/RD BFRS OR OTHER PUROSES 
227 IS ALLOCATED BY THE SUPERVISOR ON REQUEST OR CHOOSEN 
228 BY PROGRAMMER TO RESIDE BETWEEN THE DIAG AND THE 
c. SUPERVISOR. 
a4 1.1.4 DIAGNOSTIC INFORMATION 
233 
$4 1.1.4.1 SCOPE 
236 THIS DIAGNOSTIC CAN TEST ONE CONTROLLER AND UP TO 2 DRIVES. THE 2 DRIVES 
eo. ARE ASSIGNED LOGICAL ORIVE NUMBERS O - 1 BY THE DIAGNOSTIC. 
a4 THERE ARE S TESTS IN THIS PROGRAM; 
241 ST 1 - eaeee FUNCTIONS. 
242 TEST 2 - DATA RELIABILITY. 
243 TEST 3 - WRITE COMPATABILITY/WRITE UTILITY. 
244 TEST 4 - READ COMPATABILITY/READ UTILITY. 
= TEST 5S - TOR SELECTED SEQUENCE UTILITY. 
ol 1.1.4.2 ERROR RECOVERY 
249 ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK FUNCTIONS 
250 UNLESS ERROR RECOVERY IS a gt BY THE OPERATOR AT Ag Rt a P 
251 THE READ FORWARD/READ REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTI 
252 AND 8 IN THE OPPOSITE DIRECTION). FOR MORE DETAILED INFORMATI TON-ON ERROR RECOVERY 
os S, REFER TO SECTION 3.0 CERROR REPORTING) OF THIS LISTING. 
ix 1.1.4.3 WRITE ERROR RECOVERY 
257 THERE ARE 2 , SELECTABLE WRITE-ERROR-RECOVERY ALGORITHMS USED BY THIS DIAGNOSTIC: 
258 1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 
44 2. OPERATIONAL ALGORITHM 
261 BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO IDENTIFY 
| MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 
264 TO SELECT THE SECOND ALGORITHM: 
265 ANSWER ‘Y‘' TO CHANG: SW (L) ? 
34 ANSWER ‘N’ TO BAD TAPE SPOT DETECTION (L) Y ? 
268 IF ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT ASKED 
a AND BOTH ALGORITHMS ARE BYPASSED. 
sve 1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR-RECOVERY ALGORITHM 
et ay 
275 THIS ALGORITHM IDENTIFIES MEDIA RELATED WRITE ERRORS FROM 
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2" OPERATIONAL ONES. 
+. ALGORITHM 
280 A eas RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR SUBROUTINE WHICH IS 
261 RED UPON af et OF A_WRITE RECOVERABLE ERROR. 
282 THe WRITE RETRY SUBROUTINE ATTEMPTS TO REWRITE THE RECORD IN SAME SPOT ON TAPE 
oy 4 TIMES. 
285 IF ALL 4 REPEATS ARE GOOD, THE RECORD IS CONSIDERED AS RECOVERED AND 
oes A RECOVERABLE WRITE ERROR IS LOGGED AT THAT RECORD NUMBER. 
s quarectes IF ANY OF THE 4 REWRITE ATTEMPTS FAIL, THE ROUTINE WILL ERASE THE BAD RECORD, AND LO 
289 BAD SPOT AT THAT RECORD NUMBER, THE ROUTINE WILL THEN ATTEMPT TO 
290 WRITE THE RECORD AGAIN 3 INCHES FURTHER DOWN T AND 
44 RETRY THIS SEQUENCE 4 TIMES, FOR UP TO 4 REPEATS EACH. 
293 IF A RECORD CANNOT BE WRITTEN WITHOUT RECOVERABLE ERRORS AFTER 4 RETRIES, 
ded THEN THE ROUTINE WILL ERASE THE RECORD AND REPORT RETRY FAILED ON BAD SPOT. 
296 THE RECOVERABLE ERROR SUBROUTINE THEN eat TO CALL THE WRITE 
297 RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIES, 
oo UNTIL THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED . 
300 TWENTY (20) BAD SPOTS MAXIMUM ARE ALLOWED PER BOT TO EOT PASS OF TAPE. 
301 WHEN 20 BAD SPOTS HAVE BEEN LOGGED, WETHER ON THE SAME RECORD NUMBER OR NOT, 
302 TAPE IS CONSIDERED DEFECTIVE: A BAD TAPE OVERFLOW MESSAGE IS PRINTED 
a4 AND THE UNIT IS REWOUND, THEN DROPPED. 
305 THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL TAPE 
306 POSITIONING OPERATIONS: SPACE REVERSE, ERASE. IF A POSITION ERROR 
i IS DETECTED IN THE STATUS WORD DURING THOSE OPERATIONS, THEN THE RECOVERY ATTEMPT IS 


WUUWUUUWUWW 
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AN APPROPRIATE UNRECOVERABLE ERROR MESSAGE IS PRINTED AND THE UNIT IS DROPPED. 


ALL BADLY WRITTEN RECORDS ae WITH RECOVERABLE ERRORS ARE ERASED 
UNTIL RECOVERED, INCLUDING THE RECORD AT THE 20TH BAD SPOT, 
SO THAT ALL RECORDS LEFT ON TAPE ARE KNOWN GOOD WRITTEN RECORDS. 


BAD SPOTS ARE ERASED WITH ERASE GAPS FROM 3 TO 12 INCHES PER RETRY GROUP. 
UP TO 20 FEET OF ERASE GAP COULD RESULT WHEN RETRYING TO RECOVER 

A SINGLE RE“ORD. 

THAT LONG S.RETCH OF BAD TAPE WOULD THEN BE LOGGED WITH 20 

BAD SPOTS AT SAME RECORD NUMBER AND THE TAPE CONSIDERED DEFECTIVE. 


BAD SPOTS REPORTS 


IF THE PRINTING OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON TAPE ARE 
IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECORDS ARE ERASED UNTIL RECOVERED, 
THE BAD SPOT ACTUALLY PRECEDES THE RECORD NUMBER THAT IDENTIFIES IT. 

THE NUMBER OF REPEATS AND RETRIES ATTEMPTED IS PRINTED, FROM WHICH 

LENGTH OF ERASE GAPS CAN BE DETERMINED: APPROXIMATELY 3 INCHES PER RETRY. 


THE Star seteee. REPORT PRINTED AT THE END OF TEST 2 OR a A “PRINT” REQUEST, 
CONTAINS A SUMMARY OF THE BAD SPOTS LOGGED ON THE CURRENT PASS OF TAPE. 

IN THAT ~ ef ALL COUNTS ARE CUMULATIVE FROM PASS TO PASS, EXCEPT FOR 

THE NUMBER OF BAD git? IT RELATES TO A “BOT TO EOT TAPE PASS” ONLY. 

FOR THIS PURPOSE, A “TAPE PASS” IS A WRITE PASS FROM BOT TO EOT, OR FROM 
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333 BOT WHERE THE DIAGNOSTIC IS HALTED BEFORE REACHING 
334 DON'T CONFUSE THIS WITH A PASS BY THE SUPERVISOR WHICH ts "DEFINED AS A RUN THROUGH A 
_ LL THE TESTS REQUESTED 
coe ON ALL UNITS SELECTED. THOSE PASSES ARE IDENTIFIED AS “PASS” AND “EOP”. 
337 THE NUMBER OF WRITE wd CUMULATIVE FROM PASS TO PASS, IS A GLOBAL 
a4 COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLED. 
340 THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 
pee AND REFLECTS THE SPECIFICATIONS OF THE HAROWARE UNDER TEST. 
343 TO CLEAR CUMULATIVE COUNTS, ANSWER ‘Y' TO: CLEAR COUNTERS (L) Y ?. 
a4 THE BAD TAPE SPOTS COUNT IS THEN CLEARED WHEN WRITING THE TAPE FROM BOT. 
346 IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD COUNT 
34 IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT RESET COUNT. 
349 SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 
350 BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT ELECTRICAL MALFUNCTIONS, 
+4 OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS. 
353 THE SAME RECORDS MUST BE WRITTEN FROM TAPE PASS TO TAPE PASS 
anf FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 
34 EXAMPLE OF A PRINT OUT FOR A BAD SPOT ON TAPE: 
4 oe SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
360 WRT CMD FAILED - UNIT O PASS: 1 RECORD: 6 
361 PREVIOUS CMD WAS WRT 
362 CMOPKT TSBA RFC TSSR _ TCC 
363 100205 002406 000000 100210 4 
364 026600 
365 
366 003107 
367 xSTO xST1 xsT2 xSTS XST4 
368 000350 000002 100400 000000 000000 
369 SUSPECT BAD SPOT AFTER 1 RETRY, 2 REPEAT 
370 SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 
371 SUSPECT BAD SPOT AFTER 3 RETRY, 1 REPEAT 
372 CT BAD SPOT AFTER 4 RETRY, 3 REPEAT 
373 RETRY FAILED ON BAD SPOT... : 
374 SUSPECT BAD SPOT AFTER 1 RETRY, 1 REPEAT 
deg SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 
377 
378 CVTSE SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
379 RECOVERABLE 
380 WRT CMD FAILED - UNIT O PASS: 1 RECORD: 10210 
381 PREVIOUS CMD WAS WRT 
382 CMDOPKT TSBA RFC TssR TCC 
383 100205 002406 000000 100210 4 
384 026600 
385 000000 
386 004000 
387 xSTO xST1 xsT2 xSTS xST4 
388 000350 000002 100010 000000 000000 
389 RECOVERED ON RETRY @ 1 
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SEQ 008 
390 tC 
391 DR>PRI 
393 UNIT 0 PASS: 1 RECORD: 10210 
394 BYTES WRITTEN 0,272,279,691 
395 BYTES READ REV 0,301,123,654 
336 BYTES READ REV 0,301,120, 
398 RECOVERABLE ERRORS 1 ) ) 
399 UNRECOVERABLE ERRORS 7) re) re) 
400 WRITE RETRIES 4 
ace 2 BAD sPoTs THIS TAPE PASS PRECEDING RECORD @: 
404 SPEC COND HARD FATAL COMPARE 
405 2 0 r) 0 
406 OR> 
407 
408 THIS EXAMPLE SHOWS: 
409 RECORD 6 RECOVERED ON 2ND RETRY GROUP 
410 THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS S AND 6 
411 RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS 
4i2 3 WRITE GROUP RETRIES ATTEMPTED, RESULTING IN: 
413 1 RECOVERABLE WRT ERR FROM RECORD 10210 
ae 3 BAD SPOTS BETWEEN RECORDS 5S AND 6 
“is 
rt 1.1.4.3.2 OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM 
420 WHEN THIS ALGORITHM IS SELECTED, THE TSVOS WRITE RETRY COMMAND 
421 IS ISSUED UP TO 16 TIMES OR UNTIL RECORD IS RECOVERED, ON 
422 A WRITE RECOVERABLE ERROR. THE WRITE RETRY COMMAND CONSISTS 
423 OF A SPACE REVERSE OVER THE BAD RECORD, THEN AN ERASE OF 3 INCHE 
424 OF TAPE AND REWRITE OF THE RECORD. THAT COMPOSITE COMMAND 
425 DOES NOT ALLOW THE DETECTECTION OF BAD SPOTS ON TAPE. 
426 THEREFORE NO BAD TAPE SPOTS STATUS IS PRINTED. 
428 IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, 
aes A RETRY LIMIT EXCEEDED IS FLAGGED AND UNIT IS DROPPED. 
431 
ant 1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT 
434 A NUMBER OF SUPERVISOR TIMING DELAY MACROS, KNOWN AS WATCH DOG 
435 DELAYS, ARE CALLED BY THE DIAGNOSTIC TO WAIT FOR VARIOUS COMMANDS 
436 COMPLETION. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPANDS 
437 INTO AN INLINE NESTED LOOP PAIR. THE COUNT FOR THE OUTER LOOP 
438 COMES FROM THE VARIABLE ARGUMENT SUPPLIED BY THE DELAY CALLS. 
439 THE COUNT FOR THE INNER LOOP COMES FROM THE FIXED “HEADER” 
440 ELEMENT “LSDLY” 
441 AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE DELAYS WILL 
ase VARY IN LENGTH WITH MEMORY SPEED. 
444 IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS | IN THE T 
445 UNIT IS EVIDENT, ALL TIMINGS OF THE DIAGNOSTIC MAY BE ADJUSTED 
446 TO MATCH MEMORY SPEED AND NOT RESULT IN TIME-OUTS, BY PATCHING 
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447 THAT FIXED DELAY ELEMENT “LSDLY”. 
44g A PRESET COUNT OF S00 RESIDES AT “LSOLY” IN LOCATION 2116 OF THE 
450 “HEADER” SECTION. 


453 1.2 SYSTEM REQUIREMENTS 


POP-11/23 PROCESSOR WITH 32K OR MORE OF MEMORY 
461 , CONSOLE DEVICE (VTS2,LA36,ETC.) 

462 PROGRAM LOAD DEVICE 

463 TSVOS/TSOS 


1.2.2 SOFTWARE REQUIREMENTS 


469 OIAGNOSTIC SUPERVISOR 


473 1.3 RELATED DOCUMENTS AND STANDARDS 


476 DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


478 1. CIQPMAO XXDP+ PROGRAMMER’'S MANUAL; DOCUMENT NUMBER AC-S296A-AC 
479 DATE: 14 JULY 1980. 


481 2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSV0OS-UG-001 
482 DATE: AUGUST 1962 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 
oan DATE: AUGUST 1962 


487 4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 
488 DATE: AUGUST 1982 
491 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


494 ORDER OF HOST CPU DIAGNOSTIC USAGE: 

496 1) CONTROL LOGIC PROGRAM - ALL TESTS. 
496 CVTSA,VTSB8,VTSC,.VTSO) 

2) OATA RELIABILITY PROGRAM: 


502 A) BASIC FUNCTION TEST. 
503 B) DATA RELIABILITY TEST. 
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504 
SoS 
506 1.5 ASSUMPTIONS 
See ine Gabi teee, WPI ae eae 
509 THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 
510 PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 
Sil 00 NOT FUNCTION PROPERLY 
a2 VTSA,VTSB,VTSC, AND VTSD HAVE ALL SUCESSFULLY RUN WITHOUT ERRORS. 


re reer ma 


SEQ 010 
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2.0 OPERATING INSTRUCTIONS 
THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER’S MANUAL (CHQUS). 
COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC p> ol SERVICES 

CSUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 

BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 
COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED CAFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 
ey RETURN TO XXDP+ MONITOR (XXDP> agile mca 


ACTIVATE A UNIT FOR TESTING CALL UNI 
CONSIDERED TO BE ACTIVE AT START TIME 
DEACTIVATE 


ORCP A_WI 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC) 

OISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS AGS 


TYPE THE STATE OF ALL FL 
CLEAR ALL FLAGS 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


THE TSVOS DIAGNOSTIC IS A PDP-11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 
ALL LOADING AND RUNT ERENCED IN THE 


IME INSTRUCTIONS CAN BE REF 
PDP-11 PROGRAMMER'S MANUAL “CIQPMAO XXDP+ PROGRAMMERS MANUAL, NUMBER 
AC-S296A-AC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC XXDP MEDIA 


A pees 26K 


UNIT 
ENTER GATE (OD-MMM-YR): ” ENTER DATE OR JUST <CR> “ 
RESTART ADDRESS: 293726 
SO HZ? Nn. as . - 
LSI? N Y<CR> 
THIS IS XXDPs, TYPE “H" OR “H/L” FOR DETAILS 
R_VTSEAO 


VTSEAOBINORS LOADED 
OIAG. RUN-TIME SERVICES REV D. APR 79 


SEQ 011 
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573 CVTSE-A-0 
574 TSVOS DATA RELIABILITY 
S75 UNIT IS TSVOS 
576 
$77 
578 SWITCHES 
Soe Weve oe eee ee 
581 THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
582 THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
383 SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 
ses IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 
aoe SWITCH EFFECT 
S88 /TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
$89 THE LIST. LIST IS A STRING OF TEST 
590 NUMBE! FOR EXAMPLE - A a 10. 
S91 THIS LIST WILL CAUSE TESTS 1,5,.7,8,9,10 TO 
$92 BE RUN. ALL OTHER TESTS WILL NOT RUN. 
593 /PASS :DODDD EXECUTE DODDD PASSES (DDODDD = 1 TO 64000) 
and /FLAGS :FLGS SET SPECIFIED FLAGS. 
596 7EOP : DDD0D REPORT END OF PASS MESSAGE AFTER EVERY 
$97 DDDDD PASSES ONLY. (DODDD = 1 T ) 
598 /UNITS:LIST TEST/ADD/OROP ONLY THOSE UNITS SPECIFIED 
599 IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
or USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-63) 
rae EXAMPLE OF SWITCH USAGE: 
od START/TESTS: 1-5/PASS: 1000/EOP : 100 
606 THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH S WILL BE 
607 EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
608 PASS MESSAGES WILL PR EACH 100 PASSES 
609 SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
44 EXAMPLE, TYPE “/TES:1-5" INSTEAD OF “/TESTS:1-5”. 
612 BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
zoe COMMAND. 
er TESTS PASS FLAGS 
617 START x x x 
618 RESTART xX x x 
619 T x * 
620 x 
621 OROP 
622 ADD 
623 INT 
624 DISPLAY 
625 LAGS 
626 ZFLAGS 
627 EXIT 
628 
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FLAGS ARE USED TO SET . CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL oye Sh SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING 


FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO S AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 
FLAG EFFECT 
HOE HALT ON - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 
IERs INHIBIT ALL ERROR REPORTS 
* INHIBIT REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL 
T . PC, TEST AND UNIT) 
IXE* INHIBIT EXTENDED Ts ¢ 
CALLED BY PRINTX MACRO’ S) 
PRI DIRECT MESSAGES TO LINE PRINTER 
PNT PRINT TEST NUMBER AS TEST EXECUTES 
UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 
IOR INHIBIT PROGRAM ING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO ERROR, INHIBIT ERROR REPORTS 
YPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 
/FLAGS :LOE : IER: BOE 


2.1 HARDWARE PARAMETERS 


ON A “N” RESPONSE TO “CHANGE HW?”, THE DIAG SHALL RUN ASSUMING 
ONE UNIT AT TSOB © 172520 WITH A VECTOR = 224 AND DRIVE=0. 


ON A “Y" RESPONSE TO “CHANGE HW?” QUESTION, THEN 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALVE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 


SEQ 013 
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687 
— TSOB ADDRESS (0) 172520 ? 
pH VECTOR (0) 224 ? 
pte SELECT DRIVE 0-1 (0) ? 
694 THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING THE TESTS 
695 BY SETTING THE FLAG “ADR” ON A STA, RES OR CON COMMAND. 
696 THE SO CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE 
697 AND BEFORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST TESTS THE ADRRESS 
698 OF THE TSOB(S). IF NO RESPONSE, IT OROPS THE UNIT(S) IMMEDIATELY 
4 WITH THE FOLLOWING MESSAGE: 
701 BUS TRAP AT XXXXXX € XXXXXX = TSOB AD ) 
a | INTERFACE BAD OR NOT SET TO ABOVE ADDRESS. 
704 ON A_ RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT ag atlas 
705 ON-LINE ARE DROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL T 
in BE RUN ON RESPONDING UNITS. 
708 IF THE “ADR” FLAG IS NOT SET, THE READY AND OFF-LINE STATUS OF THE 
709 DRIVE IS CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 
710 TO WARN THE OPERATOR OF Bakes: BEING NOT READY OR OFF-LINE. THESE DRIVES 
rh SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME. 
Lo 2.2 SOFTWARE PARAMETERS 
715 
716 THE FOLLOWING QUESTIONS ARE ASKED WHEN ONE ANSWERS YES TO THE CHANGE SOFTWARE 
717 QUESTION ON A START, RESTART.OR CONTINUE. 
4 THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. 
4 CLEAR COUNTERS (L) Y ? 
Le 4 RESET RANDOM VARIABLES (L) N ? 
LL PRINT RECOVERABLE ERRORS (LL) N ? 
LL HALT AFTER EACH CMD (L) N ? 
kn INHIBIT RECOVERY (L) N ? 
LL BAD TAPE SPOT DETECTION (L) Y ? 
3 DISABLE INTERRUPTS (L) N ? 
ng INHIBIT RFC ERROR REPORTS (L) N 7 
ree CHANGE CMD SEQUENCE (L) N ? (SEE NOTE1:) 
i DEFAULT SWITCH SETTINGS (L) Y ? 
mee 100IPS (L) N ? 
742 WRITE BUFFERING (L) N ? 
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744 READ BUFFERING (L) N ? 
ne 
46 
747 ANSWERING NO TO THE DEFAULT SWITCH QUESTION WILL CAUSE THE 
Lane 100 IPS QUESTION TO BE ASKED. 
750 ANSWERING YES TO THE 100 IPS QUESTION WILL INHIBIT THE LAST 
4) TWO QUESTIONS. 
753 ANSWERING NO TO THE 100 IPS QUESTION WILL CAUSE THE WRITE 
Lt nf BUFFERING QUESTION TO BE ASKED. 
756 ANSWERING YES TO THE WRITE BUFFERING QUESTION WILL INHIBIT THE 
ie 2 LAST QUESTION. 
759 ANSWERING NO TO THE WRITE BUFFERING QUESTION WILL CAUSE THE 
ae READ BUFFERING QUESTION TO BE ASKED. 
762 
763 NOTE1: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN 
Te OPERATOR SELECTED Bg BBR ry 
765 IF THIS QUESTION WAS ANSWERED Y, THE FOLLOWING 
we QUESTIONS MUST BE ANSWERED OR DEFAULTED WITH A <CR> OMLY: 
768 eyegds ret CODE (0) 40 2? (0,20,40,200) COCTAL) 
769 CmMO/2 (0) 13 2? (1-27) (COECIMAL) 
770 BRF COUNT (0) 1 ? €1-2K) COECIMAL) 
771 @ OF OPERATIONS (D) 1 ? €1-32K) (COECIMAL) 
772 PATTERN (0) 7 ? (0-8) COECIMAL ) 
773 CMD/S (0) 4 7? (1-27) CODECIMAL) 
774 BRF COUNT (0) 2048 ? €1-2K) (COECIMAL) 
@ OF OPERATIONS (0) 32000 ? €1-32K) (DECIMAL) 
776 PATTERN (0) 7 ? (0-8) COECIMAL ) 
777 CMD/4 (0) 3 ? (1-27) (DECIMAL) 
778 ORF COUNT (D) 2048 ? (1-2) COECIMAL) 
779 @ OF OPERATIONS (0) 32000 ? (€1-22K) (COECIMAL) 
780 PATTERN (0) 7 ? (0-8) COECIMAL ) 
761 CMD/S (0) 2 ? (1-27) (OECIMAL) 
782 BRF COUNT (D0) 2048 ? €1-2K) COECIMAL) 
783 @ OF OPERATIONS (D0) 32000 ? €1-32K) (COECIMAL) 
T6a PATTERN (0) 7 ? (0-8) COECIMAL ) 
785 CMD/6 (0) 13. ? (1-27) (OECIMAL) 
786 GRF COUNT (0) 1 ? €1-2K)  (COECIMAL) 
787 @ OF OPERATIONS (D0) 1 ? €1-32K) (COECIMAL) 
788 PATTERN (0) 7 ? (0-8) COECIMAL ) 
789 CMD/7 (0) 27. ? (1-27) (OECIMAL) 
790 BRF COUNT (D0) 2048 ? €1-2k) (COECIMAL) 
791 @ OF OPERATIONS (0) 32000 ? €1-32K) (DECIMAL) 
792 PATTERN (0) 7 ? (0-8) COECIMAL > 
793 CMD/6 (0) 27. ? €1-27) (DECIMAL) 
794 COUNT (0) 2048 ? €1-2%) (OECIMAL) 
795 OF TIONS (0) 32000 ? €1-32K) (COECIMAL) 
i PATTERN (0) 7 ? (0-8) COECIMAL ) 
798 NOTE: THE PROGRAM AUTOMATICALLY INSERTS A oe es CODE OF 40 
799 AS THE FIRST C IN THE SEQUENCE T 
800 DIFFERENT CHARACTERISTIC IS DESIRED, te OPERATOR SHOULD 
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SEQ 016 


“. TOTAL OF 7 COMMANDS 
SET Pe tan 
OMMAND. IF THE OPERA Ton uisHes. 10 Use LESS THAN 7 


ENTER THAT CHARACTERISTIC . kK 
po BE ENTERED IN ADDITION TO T 


2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 


COOE 


Cane Yaulr 


26 
27 


82 3 


338 
<4 


33953335533 


oorauss 


3 


OLY 
END 


COMMANDS, AN END COMMAND BE EN RED AND. THe NA 

CONTROL Z (*Z) CAN BE ENTERED TO TERMINATE SOF TWARE OIALOGUE . 
DESCRIPTION 

ae INITIATE. 

READ F' . 

READ REVER: 


WRITE. 
WRITE/VERIFY. A WRITE N RECORDS; READ REVERSE AND CHECK 
Rey BM A; READ FORWARD AND CHECK N RECORDS. 


READ NEXT REVERSE, IE. SPACE FWD, READ REV. 
READ NEXT F - READ FWO, SPACE REV. 
READ PREVIOUS FWD, IE. SPACE REV, READ FWD. 
READ PREVIOUS REV, IE. READ REV, SPACE FWD. 
WRITE RETRY. 
REWIND. 
RELEASE. 

WRITE TAPE MARK. 
WRITE TAPE MARK RETRY. 
SPACE FILES F ° 
SPACE FILES SE. 
GET EXTENDED STATUS. 

3 INCHES OF TAPE. 

T 


CLEAN TAPE 

SET DEVICE pes tae TIC. WHERE BRF*200, 40. 20, 0. 
200 © ENABLE TAPE MARKS STOP (STOP AT LOGICAL E0T) 
40 = ENABLE ATTENTION INTERRUPTS. 


20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
SEE TSVOS/TSOS PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
JUMP TO THE NTH COMMAND IN THE 8 yaaa 


THE NUMBER OF JUMPS IS ENTERED IN THE @ OF OPERATIONS FIELD 
DELAY “N” MILISECONDS WHERE N IS DEF 
ao @ OF OPERATIONS. 


2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 
PATTERN @ 


a a ee ee = a nnn cen nee 


QYUhwunrero 


DESCRIPTION. 


INCREMENTING PATTERN, 0 - 377. 

ALL “1”'S PATTERN, 

ALL “O"'S PATTERN. 

“1" BIT WALKING FROM R TO L IN A FIELD OF “O'S, 
“O" BIT WALKING FROM R TO L_IF A FIELD OF “1"'S. 
ALTERNATING “1” AND “O” BITS WITH ALTERNATE BYTES COMPLIMENTED. 
ALTERNATING BYTES OF 000 AND 377. 


pera mmm ee ee eee - 
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658 7 RANDOM DATA PATTERN. 
859 8 NO PATTERN GENERATION. 


a a en ee ee ee eo 
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ost 2.3 EXAMPLES OF SOFTWARE DIALOGUE 

863 

864 CHANGE HW (L) ? 

865 

aes @UNITS (0D) ? 

ose TSOB ADDRESS (0) 172520 ? 

dag VECTOR (0) 224 ? 

872 SELECT ORIVE 0-1 (0) ? 

HE 

875 IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 

876 REQUESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 

877 FOLLOWS: 

878 

879 CHANGE SW (L) ? 

880 

se) 

a4 . 2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 

885 A) RECEIVE PROMPT (COR>) 

886 6) ENTER STA/TES:1-2<CR> 

887 C) ANSWER HARDWARE QUESTIONS. 

pas D0) PROCEED WITH THE FOLLOWING DIALOGUE: 

ae CHANGE SW (L) ? Y<CR> 

892 CLEAR COUNTERS (L) N ? Y¥<CR> 

893 RESET RANDOM VARIABLES (L) N ? <CR> 

&94 PRINT RE ERRORS (L) WN? Y<CR> 
HALT AFTER EACH CMD “> N? <CR> 

896 INHIBIT RECOVERY (L) N ? <CR> 

897 BAD TAPE SPOT DETECTION (L) Y ? <CR> 

898 OISABLE INTERRUPTS (L) <CR> 

899 INHIBIT RFC ERROR REPORT (L) N ? <CR> 

SOG CHANGE SE N? <CR> 

a DEFAULT SWITCH SETTINGS (L) Y ? <CR> 

os 2.3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 

905 A) RECEIVE PROMPT COR>) 

oor 8? pot STA/TES: 1/FLA:LOE: IER: ISR: IDU<CR> 

a4 0) PROCEED WITH THE FOLLOWING DIALOGUE: 

910 CHANGE SW (L) ? Y<CR> 

911 CLEAR COUNTERS (L) N ? Y<CR> 

912 RESET RANDOM VARIABLES (L) N ? N<CR> 

913 PRINT RECOVERABLE wre ) N ? N<CR> 

914 HALT AFTER adh CMO (L) N N<CR> 

915 INHIBIT RECOVERY (L) N ? N<CR> 

916 BAD TAPE SPOT iy dh ty ol (L) ¥ ? N<CR> 


917 OISABLE INTERRUPTS (L) N ? N<CR> 
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918 INHIBIT RFC ERROR REPORT (L) N ? Y<CR> 
919 CHANGE CMD SEQUENCE (L) N<CR> 
4 DEFAULT SWITCH SETTINGS (L) Y ? <CR> 
922 
eae 2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 
925 A) RECEIVE PROMPT (COR>) 
926 8B) ENTER STA/TES:5/FLA: IER: ISR: IDU/EOP: 1000<CR> 
927 C) ANSWER ‘ 
= 4 0) PROCEED WITH THE FOLLOWING DIALOGUE: 
930 CHANGE SW (L) ? Y¥<CR> 
931 CLEAR COUNTERS (L) N ? Y<CR> 
932 RESET RANDOM VARIABLES (L) N ? N<CR> 
933 PRINT RECOVERABLE ERRORS (LL) N ? N<CR> 
934 HALT AFTER EACH CMD (L) N ? N<CR> 
935 INHIBIT RECOVERY (L) N<CR> 
936 AD TAPE SPOT DETECTION (L) Y ? N<CR> 
937 0 TERRUPTS ¢ Y<CR> 
48 INHIBIT RFC ERROR REPORT (L) N ? Y<CR> 
939 CHANGE CMD SEQUENCE Y<CR> 
940 CHARACTERISTICS CODE (0) 40 ? 40<CR> 
941 CMD/2 (0) 5 ? 13<CR> (REWIND) 
942 BRF COUNT (0D) 8? 1<CR> 
943 OF TIONS (D0) 10 ? 1<CR> 
944 PATTERN (0) 1<CR> 
945 CMD/3 (0) 5 ? 4<CR> (WRITE) 
946 BPF (D) 204 1000<CR> 
947 « FF eon t (0) 10 ? 10000<CR> 
948 PATTERN (0D) 7 1<CR> 
949 CmMD/4 (0) 5 .* 27<CR>  (CEND) 
oar BRF (D) 2048 ? <tZ> 
952 2.4 EXECUTION TIMES 
See “se ® £. ghs®. TS _&” -" eeeeneweemenes 
954 
955 
po 2.4.1 SYSTEM CONFIGURATION 
958 
959 POP11/23 
960 MOS MEMORY q 
961 LA36 . 
862 tT” '*$/TSO5 
963 
364 
a 2.4.2 TEST EXECUTION TIMES (2400 FT. TAPE) 
967 
968 TEST 1 - BASIC FUNCTIONS - 30 SECONDS PER PASS. 
969 TEST 2 - DATA RELIABILITY - 45 MINUTES PER PASS. 
970 TEST 3 - WRITE COMPATABILITY - 20 MINUTES PER PASS. 
971 TEST 4 - READ COMPATABILITY - 20 MINUTES PER PASS. 
ore TEST 5 - RANDOM/OPERATOR SELECTED SEQUENCE -20 MINUTES PER PASS. 
974 NOTE: ALL EXECUTION TIMES ARE SHOWN FOR ONE DRIVE OPERATION. 
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975 
pba 3.0 ERROR INFORMATION 
978 
979 
980 3.1 ERROR REPORTING 
ee Cm Le igen eee 
983 L ERROR REPORTS EXCEPT FOR ERRORS @1 AND #17 INCLUDE A DUMP 
oo oF THE FOLLOWING INFORMATION: 
986 ERROR @, TEST @, SUBTEST @, PROGRAM COUNTER, UNIT @, 
987 COMMAND, PREVIOUS COMMAND, PASS COUNT, @ OF 
988 RECORDS FROM BOT, RECORD READ COUNT. THE COMMAND PACKET, TSSR, 
989 TCC, TSBA, RFC, AND THE EXTENDED STATUS REGISTERS 
a4 (SEE 2.3. is, 1 FOR LIST OF COMMANDS). 
| STANDARD ERROR REPORT FORMAT: 
994 CVTSE SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 
995 CASCII ERROR MESSAGE 
996 XXX CMD FAILED - ed X PASS: XXXXX RECORD: XXXXX 
997 PREVIOUS CMD WAS # RECORD READ: XXXXX @ 
998 CMOPKT TSBA Fe TSSR tcc 
999 XXXXXK RAXXXXK XRRXXNXXX XRNXXMXX XX 
1000 XXXXXX 
1001 XXXXXX 
1002 XXXXXX 
1003 xSTO xST1l xsTt2 xST3 xST4 
yond MXXMRK RARXXAXKX RRXKXXKK RRAXAXKX XARXAXAXXX 
1006 
eed @ CAUTION « 
1009 INTERPRET THAT “RECORD READ” COUNT WITH CAUTION. 
1010 IF VERY OIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC. 
1011 TAPE POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT 
1012 RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 
1013 READ FROM TAPE. 
1014 IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR CONTINUED, RECORD COUNT 
1015 IS RESET TO ZERO ALTHOUGH THE TAPE IS NOT REWOUND. THIS IS 
1016 NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 
1017 ON WHAT RECORD COUNT OF WHICH UNIT THE DIAGNOSTIC WAS HALTED 
1016 BEFORE RESTARTING OR CONT 
1019 IT IS SUGGESTED THAT A “PRINT” BE REQUESTED WHEN HALTING DIAG 
ao TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 
— EXAMPLE OF AN ERROR REPORT: 
1024 CVTSE SFT ERR 00009 TST 002 SUB 000 PC: 010606 
1025 ap eo ERROR 
1026 WRT CMD FAILED - UNIT 2 PASS: 2 RECORD: 254 
1027 PREVIOUS CMD WAS WRT 
1028 CMOPKT TSBA RFC TSSR TCC 
ro} 100005 002324 000000 100210 4 
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1032 000371 

1033 xSTO xXST1 xXST2 #£=xXST3  XST4 

1034 000350 000002 100004 000000 040055 

1036 

1087 3.1.1 ERROR @1 - COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY: 
1039 IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
1040 THIS IS A SYSTEM FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 
1041 CORRECT IT. 

1042 

1043 

1044 3.1.2 ERROR #2 - TSOS NOT READY: 

1046 BEFORE ANY COMMAND IS ISSUED TO THE TSOS, THE SUBSYSTEM READY 
1047 BIT IN Tre TSSR IS CHECKED. IF THE SSR IS NOT SET, THE PROGRAM 
1048 REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
1049 THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 
1050 OPTION IS USED. 

1051 

1052 

1053 3.1.3 ERROR @3 - NO RESPONSE ERROR: 

1055 ONCE THE TSDB IS LOADED. THE TSOS HAS ONE MILLISECOND TO RE 
1056 OR THE PROGRAM REPORTS A NO RESPONSE ERROR. THIS IS A FATAL 
1057 DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE 
1058 UNLESS THE IDU OPTION IS USED. 

1060 

1061 3.1.4 ERROR @4 - NO INTERRUPT ERROR: 

1063 COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 
1064 THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE AND 
1065 THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
1066 OPTION IS USED. 

1067 

1068 

1069 3.1.5 SPECIAL CONDITION ERRORS: 

1071 IF, DURING EXECUT AN INCIDENT OCCURS FORCING THE TSSR 

1072 SPECIAL CONDITION vert TO SET. THE PROGRAM WILL SELECT ONE OF 

1078 8 ERROR HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 
1075 p 

1076 THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
1077 WHEN SPECIAL CONDITION IS SET: 

1079 

1080 3.1.5.1 ERROR @5 - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 
1082 THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 

1083 AND THE PROGRAM PROCEEDS NORMALLY. 

1085 

1086 3.1.5.2 ERROR @6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 

1088 THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
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1089 SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
1090 ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
1091 THE IOU OPTION IS USED. 

138 

peed 3.1.5.3 ERROR @7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT 

1096 A_STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
1097 TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RiL, EOT. 
1098 ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED. 

1099 IF THE CONDITION IS UNEXPECTED, THE ERROR IS REPORTED AND 

114 A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMALLY. 

1102 

rt 3.1.5.4 ERROR #6 - TERMINATION CLASS CODE 3, FUNCTION REJECT 

1105 THE SPECIFIED FUNCTION — aed INITIATED. BITS OF INTEREST 

1106 RMR, OFL, VCK, BOT, ILC, WE, ILA, AND NBA. THIS IS A FATAL 

1107 DEVICE ERROR AND THE DEV Ice" WILL BE DROPPED FROM THE TEST CYCLE 
1108 UNLESS THE IDU OPTION IS USED. 

He 

it 31.5.5 ERROR @9 - TERMINATION CLASS CODE 4, RECOVERABLE ERROR 

1113 TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 

1114 THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
1115 ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 
1116 IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
iis IS REPORTED AS DESCRIBED IN ERROR 014 BELOW. 

1119 

tie. 3.1.5.6 ERROR #10 - TERMINATION CLASS CODE 5S, RECOVERABLE ERROR 

1122 TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
1123 ERROR AND RE-ISSUE THE ORIGINAL COMMAND. IF RETRY LIMIT IS 

1124 REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 

1r4 Is REPORTED AS DESCRIBED IN ERROR 14 BELOW. 

1127 

11-4 3.1.5.7 ERROR @11 - TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 

1130 TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE IS TO 
1131 REWIND AND START OVER AT BOT UNLESS THE TAPE HAS OR SEQUENCE 
1 ° Y Ck IS SE AGNOSTIC WILL REWIND AND 
1133 RETRY THE COMMAND, OT SE _ THIS IS A FATAL DEVICE ERROR AND THE 
tt DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 
1136 

at 3.1.5.8 ERROR #12 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 

1139 THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COMMANDS OR AT 
1140 Leney ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO 

1141 FATAL CLASS CODE 4 oe IN THE TSSR REGISTER FOR ADDITIONAL INFOR- 


1142 MATION ON THE TYPE OF FATAL ERROR. THE DEVICE a. BE 


1143 FROM THE TEST CYCLE UNLESS THE IDU OPTION IS 
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ht: 3.1.6 ERROR #13 - RFC NON-ZERO ERROR: 

1148 IF, AFTER EXECUTION, vr RESIDUAL FRAME COUNT IS NON-ZERO, THE 
1149 ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
150 PROCEEDS NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS 
1151 IS OPTIONAL. 

1iS2 

1153 

1158 3.1.7 ERROR 014 - RETRY LIMIT EXCEEDED: 

1156 ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
1157 WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 
1159 ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 

1160 THE PROGRAM PROCEEDS NORMALLY. 

1162 

1165 3.1.6 ERROR #15 - TOO MANY INTERRUPTS: 

1165 IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS ERROR IS REPORTED. 
1166 THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
He THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 

1169 

a0 3.1.9 ERROR @16 - CAPSTAN RUNAWAY: 

1172 CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST 

1173 COMMAND. THE PROGRAM WILL ISSUE A GET STATUS 

1174 SO THAT THE DEAD TRACK FIELD TENDED STATUS REGISTER 2 
1175 WILL CONTAIN THE TACH COUNT WHEN THE TAPE S . 

1176 THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
A177 THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 

1179 

fies 3.1.10 ERROR #17 - DATA COMPARE ERROR: 

1162 IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND, 
1183 THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
1184 DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR 0C 
1185 ON. ONLY THE i. 10 | BYTES me ERROR PER RECORD ARE PRINTED. 
1186 THE TOTAL @ OF BYTES IN ERROR PER RECORD IS ALSO PRINTED. A 
1387 HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY. 

1189 

1190 3.2 ERROR HALTS 

ie tine te eee err 

1193 ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
tise WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 

LL96 4.0 PERFORMANCE REPORT 

OO Ba ee LE Ae Pa tte eee: 

1198 

1199 UNIT X  PASS:XXXXX RECORD: XXXXX 

1200 BYTES WRITTEN XXX, XXX, XXX, XXX 

1201 BYTES READ REV XXX, XXX, XXX, XXX 

1202 BYTES READ FWD XXX.XXX, XXX. XXX 
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1203 WRT ROR ROF 
1204 RECOVERABLE ERRORS XXXXX XXXXX  XXXXX 
ieee UNRECOVERABLE ERRORS XXXXX XXXXX = XXXXX 
1207 SPEC COND HARD FATAL COMPARE 
1208 XXXXX XMAXXXX XMAXXXKX XARXXX 
1209 
1210 
1211 
1212 
1213 
1214 5.0 TEST SUMMARIES 
ae oe SP ow nt. a SY) . aeneeenoees 
1216 
atte 5.1 TEST 1 - BASIC FUNCTIONS. 
a3 EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TSOS FUNCTIONS. 
1221 SUBTEST 1 - SET CHAR, ORIVE INIT, GET STATUS. 
1222 ¢ SET CHARACTERISTIC 200. 
1223 + pot INITIATE. 
1224 . n+ pata 20. 
1225 ‘ Ger STAT 
1226 ¢ SET CHARACTERISTIC 40. 
yo ¢ PRINT TSOS MICROCODE LEVEL (PASS 1 ONLY) 
1229 SUBTEST 2 - REWIND. 
1230 ¢ REWIND. 
aeee ¢ REWIND AT BOT. 
1233 SUBTEST 3 - WRITE/VERIFY. 
1234 ¢ WRITE/VERIFY PATTERN 1. 
1235 ¢ WRITE/VERIFY PATTERN 2. 
1236 ¢ WRITE/VERIFY PATTERN 3. 
1237 + IFY PATTERN 4. 
12 ¢ WRITE/VERIFY PATTERN 5S. 
1239 ¢ WRITE/VERIFY PATTERN 6. 
rot ¢ WRITE/VERIFY PATTERN 0. 
1242 SUBTEST 4 - WRITE TAPE MARK, ERASE. 
1243 ¢ WRITE TAPE MARK. 
1244 ¢ WRITE 10 RECORDS 
1245 * 10 TIMES 
1246 ¢ WRITE TAPE MARK. 
ree ¢ WRITE TAPE MARK RETRY. 
1249 SUBTEST S - SPACE FILE 
1250 ¢ SPACE 2 FILES REVERSE. 
1251 ¢ SPACE 2 FILES FORWARD. 
1252 + SPACE 2 FILES REVERSE. 
oes + SPACE 2 FILES FORWARD. 
1255 SUBTEST 6 - SPACE RECORDS. 
1256 + REW 
1257 : SPACE 7 RECORDS FORWARD. 
1258 ¢ SPACE 7 RECORDS REVERSE. 
1259 + SPACE 7 RECORDS FORWARD. 
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1260 + SPACE 7 RECORDS REVERSE. 
1262 SUBTEST 7 - WRITE RETRY. 
1263 + REWIND. 
1264 ; WRITE DATA. 
1265 + WRITE RETRY. 
1267 SUBTEST 8 - READ REV RETRY. 
1268 * READ REVERSE. 
1269 * READ NEXT REVERSE. 
1270 + READ NEXT FORWARD. 
1272 SUBTEST 9 - READ FWO RETRY. 
1273 + READ FORWARD. 
1274 + READ PREVIOUS FORWARD. 
1275 ¢ READ PREVIOUS REVERSE. 
1277 SUBTEST 10 - CLEAN. 
1278 + CLEAN. 
acre @ REWIND. , 
12861 SUBTEST 11 - WRITE/VERIFY SWAPPED DATA BYTES. 
1282 + WRITE/VERIFY EVEN LENGTH (RECORD 1). 
1283 + WRITE/VERIFY ODD LENGTH (RECORD 2). 
+ SET DATA BYTE SWAP. 
1285 : + WAITE/VERIFY EVEN LENGTH (RECORD 3). 
1286 ; + TE/VERIFY ODD LENGTH (RECORD 4). 
1287 e CLEAR DATA BYTE SWAP. 
1289 SUBTEST 12 - READ SWAPPED DATA BYTES. 
1290 + READ REV RECORD 4 
1291 + READ RE > 
1292 + SET DATA BYTE SWAP. 
1293 + READ REV RECORD 2. 
1294 + READ REV RECORD 1. 
1295 + READ RE 4 
1296 + READ FWO RE 
1297 * CLEAR DATA BYTE SWAP. 
1298 * READ RECORD 3. 
1299 ¢ READ FWD RECORD 4. 


[oor ne ee 
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1301 5.2 TEST 2 - DATA RELIABILITY. 
1303 1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 
1304 SET CHARACTERISTIC 40 
1305 REWIND 
1306 WRITE 64 RECORDS OF RANDOM LENGTH AND DAT 
1307 2. WRITE AND READ COMMANDS ARE SELECTED AT RANDOM AND 
1 CUTED A OF T WITH 
1309 LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REACHED. 
1310 3. AT THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
1311 A PERFORMANCE REPORT IS PRINTED. 
1313 NOTE: IF A RESTART COMMAND IS USED TO INITIATE 
1314 TEST 1, THE INITIAL REWIND COMMAND IS NOT ISSUED. 
1316 
1317 5.3 TEST 3 - WRITE COMPATABILITY/WRITE UTILITY. 
1319 REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
1320 AND RANDOM DATA FROM BOT TO EOT. 
1332 
1328 5.4 TEST 4 - READ COMPATABILITY/READ UTILITY. 
1325 REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 
1327 
1528 5.5 TEST 5 - RANDOM/OPERATOR SELECTED COMMAND SEQUENCE. 
1330 A DEFAULT SEQUENCE OF REWIND/WRITE/READ REV/READ FWD/REWIND 
1331 OF ENTIRE TAPE IS EXECUTED WITH RANDOM PAT 
1332 AND LENGTH OF 2048 BYTES. OPERATOR tne ENTER 
333 SEQUENCE OF COMMANDS UP TO SEVEN IF THEY DON’T WANT 
1334 DEFAULT SEQUENCE. 
i339 6.0 DEVICE INFORMATION TABLES 
1338 
1339 6.1 GENERAL 
7 ee We ee uy See 
1342 THE TSOS TAPE SUBSYSTEM CONSISTS OF A TSVOS Q-8US 
1343 CONTROLLER CONNECTED TO A TSOS DRIVE. FROM A SOFTWARE VIEWPOINT 
1344 THIS CONFIGURATION IS UNIQUE (FOR A Q-BUS DEVICE) IN A NUMBER 
1345 OF WAYS: 
1347 A. ONLY ONE REGISTER MAY GE WRITTEN - TSDB (TAPE SYSTEM 
1348 DATA BUFFER), 
1350 B. TWO REGISTERS MAY BE READ - TSSR AND TSBA (TAPE SYSTEM STATUS 
1353 REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 
1353 C. COMMANDS ARE NOT WRITTEN TO THE DRIVE; RATHER, COMMAND 
1354 POINTERS ARE WRITTEN WHICH POINT TO CORPIAND PACKETS SOME- 
1355 WHERE IN CPU MEMORY. THE COMMAND POINTER IS USED BY 
1356 THE TSOS SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 
1357 PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 
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1. COMMAND WORD 

2. LOW ORDER BUFFER ADDRESS 
3. MIGH ORDER BUFFER ADORESS 
4. BYTE COUNT 


THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC- 
cana TO DETERMINE WHETHER; 
- THE ORIVE IS READY To ACCEPT ANOTHER COMMAND 
OUS COMMAND WAS EXECUTED WITHOUT 


TO GET THE EXTENDED WHAT 
ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 


EXTENDED STATUS REST STENS ARE NOT READ DIRECTLY FROM 
ORIVE REGISTERS; RATHER, A “GET STATUS” COMMAND 

S ISSUED WHICH WILL CAUSE TSOS TO TRANSFER EXTENDED 
STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 


ADORESS OF THE “GET STATUS” COMMAND. THERE ARE FIVE 
EXTENDED STATUS REGISTERS. SEE .3. 


THE TSOB MUST BE WRITTEN WITH A DATO pM oa TO 

a gy WRITE THE COMMAND POINTER. 

CAUSE A MAINTENANCE FUNCTION. A DATO TO Te TSSR WILL CAUSE 
SUBSYSTEM INIT. 


COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR 
MEMORY BOUNDARIES CAS OPPOSED TO DIVIDE BY 2 OR WORD 
BOUNDARIES) . 


ee 


— 


SEQ 027 


a ee a ee Se ee eR A eT LL A 
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1391 6.2 Q-BUS INTERFACE SPECIFICATIONS 


1395 TSVOS/ INT. UNIBUS 
1396 TSOS VECTOR ADDRESS REGISTER 


1399 FIRST 224 772520 TSBA/TSOB 
1 772522 TSSR 


ae ee eee 


SEQ 028 


D3 


SEQ 029 
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02 O01 00 
. Ce 2 ,.3 2 


11 10 09 06 O7 06 0S 04 O53 


14 13 12 


iS 


Ome Hh See H Sere Hees H FSeeeHaeeHesehH Sema HeeeHeeeh Fess HasaHesehH Hose HoerHoens 


TALS! !AL42ALSIA12! fALLIALO!A09! !AOBIAOTIAOG! !AOS!A04!A03S! !A02!A01!A00! 


(R70) TSBA ! 


TSVOS/TSOS REGISTER SUMMARY 


BIT DEFINITIONS FOR TSVOS/TSOS REGISTERS 


6.3 
6.3.1 


Serene See Feee Haan h Seer Here HeenH HFeeeHeeeHeesh HSeenHeceHosohH Foes HoerHores 


1P1S! !P14!1P1S!P12! IP11!1P10!P09! !POB!PO7!PO6! !PO05!1P04!P03! !P02!P17!P16! 


(W/O) TSOB ! 


Ome Sema Fee seeaeh Seer FeeeHeeahH Home Heer Hoeeh Sees HoeaHoesH Hore HoeaHeees 


1SC ! ! O ISCEIRMR! INXMINBAIA17! !A16!SSRIOFL! I!FCi!FCO!TCa: sTCisTCco!: O : 


(R70) TSSR ! 


$ 
Ome eee Seer hoes Seer FeeeFeeeh Seer Fee Hoeah Soe HoeeSoenH Fore HorrHee=s 


FEATURES SWITCH ON THE M7196) 


Ome Sore hoeeheeeh SeesHeseHeesH Fosse HeseHoraH FeesH$essHoeeH HeoeHeesHeoons 


TMK! IRLSILETIRLL! !WAEINEFLILC! !ILAIMOTIONL! IIE 8VCKIPED! !WK!IBOTIEOT! 


ENABLED BY THE EXTENDED 


CTSOBX EXISTS ONLY WHEN 


a | : 
Omen Sere hese FeeeH SeeeSesehoees SeeeHessHossH SoesH$essHoeaH HoesHoes Hoses 


sOLT!: : O :COR! O'!0!0!0! IRBP!O!0!!0!0!0! ! 0 IUNC! 0! 


xSTO ! 
xSTi ! 
xST2 ! 


Pee Sere seeeHeeeh FSeeeFeeeHoeeh HFeenHeeeHoeeH HSeesHeseHcoesH HFooeHosoHorash 


10PM: !RCE? 0 10! 2 O tWCF! O $ $ O IRLTIRLG! IRLSIAL4IALS! IRL2!IRL1i!RLO! 


Ome eh Seme Sooo Hore Seee Hore HoeeH Hose Here FoeeH Sere HeseHoesH HSeeeHoeeHoe=s 


eT :!:0!02 0! !P21!P20!P19! !P18! 


CW/0)TSOBX ! 


Oren Sere heeaFoeah FoenFoeeHreshH Feeos 


! O !0PI! !REVITRFIOCK!: ! O ! O !RIB! 


MICRO DIAGNOSTIC ERROR CODE 


Seen h SoeeFeeeHoesH SeeHFoeseHeesH HSoeeFeesHosaH FSeesH$oesHoesH Hoon HoesHooss 


!HSP! !RCE! 0! 0 


xST4 ! 


xSTS ! 


WRITE RETRY COUNT ' 


°0 #60 ait 


Cem eee heer e Sesh Sere Sere Fee h So eHHeesHereH Fees FeseHoeeH HSeesHorese-=F 


TERMINATION CLASS CODES (TSSR TCO-TC2): 


RECOVERABLE ERROR - TAPE POSITION = ONE RECORD 
DOWN TAPE FROM START OF FUNCTION 
UNRECOVERABLE ERROR - TAPE POSITION LOST 

FATAL CONTROLLER ERROR 


FATAL CLASS CODES (TSSR FCO-FC1): 


NORMAL TERMINATION 

ATTENTION CONDITION 

TAPE STATUS ALERT 

FUNCTION REJECT 

RECOVERABLE ERROR - TAPE NOT MOVED 


SoanmMme Nor 


* MICRO DIAGNOSTIC FAILURE. SEE ERROR CODE BYTE (XSTS) FOR FAILED FUNCTION. 


* RESERVED 
* NOT USED 


te) 
i 
7 
3 


* RESERVED FOR FUTURE USE ALWAYS READ AS A 0 





' 
' 
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1461 

1462 

1463 6.3.2  TSVOS STATUS REGISTER (TSSR) 

1465 

1466 

1467 Q-BUS ADDRESS + 2 - READ ONLY 

1469 15 14 13 1211 10 0908 07 06 = OS OH 0302 O10 
Ce Me eo oe ee ee ee es es ee eee eee eee eee ee 2 

1471 sc 110 tSCEIRRE tNXMENBALAL7! tALGISSRIOFL! tFCAtFCotTcat tTCLITCO! 0 ! 

1472 ! if '! !! !! : 

1473 e<--6 a RP = SS a Oe ee a Se Ee Te ae 

1474 

1475 

1476 BIT NAME TCC DEFINITION 

1376 ee oe ee 

1479 18 SC s SPECIAL CONDITION. WHEN SET, INDICATES THAT 

1480 THE LAST COMMAND DID NOT COMPLETE WITHOUT 

1481 INCIDENT. SPECIFICALLY eI 

1 oR EXCEPTION CONDITION OCCURRED 

1483 EXCEPTION CONDE TIONS CAN s 

1484 . RE MOTI i AT BOT, EOT WHILE 

1485 WRITING, ETC. MAY ALSO BE BY 

1486 BIT A IN THE TSSR REGISTER: SCE, 

1487 RMR, AND NXM. THE TERMINATION CLASS BITS ARE 

1488 SOME THING OTHER THAN O CUMLESS RAR IS THE ONLY 

1489 ERROR - SEE RMR). 

1491 ws . RESERVED (ALWAYS A 0) 

1493 13. SCE FCC SANITY CHECK ERROR-SETS WHEN THE CONTROLLER DETECTS 

1494 AN ABNORMAL CONDITION WITHIN ITSELF DURING EXECUTION 

1495 OF IT'S FUNCTIONS AND THE IS SERIOUS ENOUGH 

1496 THAT A MESSAGE PACKET IS NOT STORED. 

1498 12 RMR Ss REGISTER MODIFICATION REFUSED. SET BY THE TSVOS 

1499 WHEN A COMMAND POINTER IS LOADED INTO TSO@ AND 

1500 SUB-SYSTEM READY (SSR) IS NOT SET. NOTE THAT 

1501 THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATION 

CLASS FACT, TSO5 ERROR 

1503 CAUSE ON A SYSTEM WITH NO BUGS, THIS BIT MAY 

1504 AN ATTENTION MESSAGE. IF AT 

1505 NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 

1506 OF EITHER A FATAL CONTROLLER ERROR OR A SOFTWARE 

1507 BUG. 

i309 11 NXM 4/5 NON-EXISTENT MEMORY. SET GY THE TSVOS WHEN 

1510 TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 

1511 WHICH DOES NOT EXIST. MAY OCCUR WHEN FETCHING 

1512 THE COMMAND PACKET, FETCHING OR STORING DATA, 

44 OR STORING THE MESSAGE PACKET. 

1515 10 NBA S NEED BUFFER ADORESS. WHEN SET, INDICATES THAT 

1516 THE TSOS NEEDS A MESSAGE BUFFER 


ER ADORESS. THIS 
1517 BIT IS CLEARED DURING THE SET CHARACTERISTICS 
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1518 COMMAND CIF A GOOD ADDRESS WAS GIVEN). 
1520 09 Al?) 6S BUS ADDRESS BIT 17. A17 AND A16 (BIT 08) TRACK 
1521 THE VALUES OF BITS 17 AND 16 OF THE TSBA 
1522 REGISTER. LOADED FROM TSDB BITS 01-00 WHEN TSDB 
1528 IS WRITTEN. 
1525 08 AI6 S BUS ADDRESS BIT 16. SEE Al? (BIT 09). 
1527 07 SSR. S SUB-SYSTEM READY. WHEN SET, INDICATES THAT THE 
1528 TSVO5S/TSO5 SUBSYSTEM IS NOT BUSY AND IS READY TO 
1529 ACCEPT A NEW COMMAND POINTER. 
1531 06 OFL S,1,3 OFF-LINE. WHEN SET, INDICATES THAT THE TSOS IS 
1532 OFF-LINE AND UNAVAILABLE FOR ANY TAPE HOTION 
1533 COMMANDS . THIS BIT CAN CAUSE A TERMINATION CLASS 
1534 1 CON ATTN INTERRUPT) OR 3 (RESULTS IN NEF). 
1536 05 FCcL 7 FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
1537 04) ARE USED TO INDICATE THE TYPE OF FATAL 
1538 ERROR WHICH HAS OCCURRED ON THE TSOS. THESE 
1539 BITS ARE VALID ONLY WHEN SC IS SET AND T 
1540 TERMINATION CLASS CODE BITS ARE ALL SET roves 
1542 04 #FCO ? FATAL TERMINATION CLASS 00. SEE FC1 (BIT 05). 
1544 03 Tce § TERMINATION CLASS BIT 02. THIS BIT, ALONG WITH 
1545 THE C1 AND TCO BITS, ACT AS AN OFFSET VALUE 
1546 WHENEVER AN ERROR OR EXCEPTION CONDITION OCCURS 
1547 ON A EACH OF THE E S 
1548 VALUES OF THIS FIELD SENT PARTICULAR 
1549 CLASS ERRORS OR EXCEPTIONS. THE CONDITIONS 
1550 IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, 
1551 APPLICABLE, RECOVERY 
1552 PROVIDED IN THIS FIELD IS EXPECTED TO BE 
1553 UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
1554 HANDLING OF THE CONDITION. 
1536 o2 ci § TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 
1538 01 TCO § TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 
1560 00 Ct ° NOT USED. (ALWAYS A 0) 
1561 
1562 
1563 
1564 
1565 Q-BUS ADDRESS + 2 - WRITE ONLY 


1567 SUBSYSTEM INITIALIZE 
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1569 
tty 6.3.2.1 TSVOS EXTENDED DATA BUFFER REGISTER (TSDBX) 
1572 
1573 
1574 eee eee eee ery Seer errr eer were | 
1575 eT: !0!0! 0! !P21!P20!P19! !P18! CTSOBX EXISTS ONLY WHEN 
1576 eee 6 ShUDlUMElLtOR OE BULLS ENABLED BY THE EXTENDED 
tere et et et Pe ee Se oe ee ee | FEATURES SWITCH ON THE M7196) 
1579 
ot BIT NAME TCC DEFINITION 
1582 15 BT - BOOT COMMAND BIT. WHEN WRITTEN TO A 1,WITH 
1583 SSR*1, CAUSES THE TAPE TO BE REWOUND TO BOT, 
1584 THE FIRST TAPE RECORD TO BE SKIPPED, AND THE 
1585 SECOND RECORD TO BE LOADED INTO CPU MEMORY SPACE 
HE STARTING AT LOCATION O. 
T+4 14-12 RESERVED CALWAYS A 0) 
1590 11-08 P<21:18> COMMAND POINTER BITS 21-18. WHEN THE TSOBX IS WRITTEN 
1591 AND SSR*1, THE DATA IS LOADED INTO BITS 21-18 OF 
it THE INTERNAL TSBA REGISTER. 
1594 07-00 RESERVED (ALWAYS A 0) 
1595 
1596 
1597 
it 6.3.3 EXTENDED STATUS REGISTER 0 (XSTATO) 
1600 
1601 
1602 15 14 13 12 11 10 09 08 O7 06 0S 04 OS 02 On nel 
1603 eee Se ees eee ees Oe ee eee ees ee ees ees eee ee eee eee eet ee et et 
1604 {TMK! §RLSILETIRLL! §WLEINEFLILC!: SILA!MOT!IONL! SIE !VCK!PED! wk t8OT €or! 
1605 cee Os 2 See Ss oe, 8. & 2 2. 2. 82 4 : 
1606 Pome Hemme e eben sh Heme bemunsennh Sees beenbeenh Sema heenseuns TR ES BS. 
1607 
1608 
1609 BIT NAME TCC DEFINITION 
ell 7) aby ae mals 
1612 15 TMK S.2 TAPE MARK DETECTED. SET WHENEVER A TAPE MARK 
1613 WAS DETECTED DURING A_ READ, SPACE, OR SKIP 
1614 COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
tr OR WITE TAPE MARK RETRY COMMANDS. 
1617 14 =RLS 2 RECORD LENGTH SHORT. THIS BIT INDICATES THAT 
1618 EITHER THE RECORD'S LENGTH WAS SHORTER THAN THE 
1619 BYTE COUNT ON READ bat ag A SP 
1620 OPERATION ENCOUNTERED A TAPE MARK OR BOT BEFORE 
1621 THE POSITION COUNT WAS EXHAUSTED. OR A _ SKIP 
1622 TAPE MARKS COMMAND WAS TERMINATED BY 
1623 ENCOUNTERING BOT OR A DOUBLE TAPE MARK CIF THAT 
1624 OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
1625 EXHAUSTING THE POSITION COUNTER. 
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13 


12 


11 


10 


H3 


LET 





LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
MARKS COMMAND WHE! 


MARK. THE oc 
UNLESS THIS MODE OF RMINATION IS ENABLED 
THROUGH USE OF THE SET CHARACTERISTICS COMMAND . 


RECORD LENGTH LONG. WHEN SET, THIS BIT 
INDICATES THAT THE RECORD READ WAS LONGER THAN 
THE BYTE COUNT SPECIFIED. 


WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE 
DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 
LOCK SWITCH ACTIVATED OURING THE OPERATION. 


NON-EXECUTABLE FUNCTION. WHEN SET, INDICATES 
THAT THE COMMAND COULD NOT BE EXECUTED DUE TO 
ONE OF THE FOLLOWING CONDITIONS: 


- THE COMMAND SPECIFIED REVERSE TAPE 
OIRECTION BUT THE TAPE WAS ALREADY 
POSITIONED AT BOT. 

- THE ISSUING OF ANY MOTION COMMAND EXCEPT 


SEQ 033 


03 


01 


ILC 


ILA 


m 


vCK 


EOT 


S.2 


nn ee 


I3 


SEQ 034 


yay THE Me as CHECK BIT IS SET. 

: Y_ COMMAND, EXCEPT GET STATUS OR ORIVE 
INITIALIZE, WHEN THE TSOS IS OFF-LINE. 

- ANY WRITE COMMAND WHEN THE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS - WMS). 


na et COMMAND. SET WHEN A COMMAND IS ISSUED 
MODE FIELD CONTAINS 
SUPPORTED BY THE TSOS. 


ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
AN EVEN ADDRESS IS REQUIRED. ) 


TAPE IS MOVING. 


ON LINE. WHEN SET, INDICATES THAT THE TSOS IS 
ON-LINE AND OPERABLE. 


INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
ee. ENABLE BIT SUPPLIED ON THE LAST 


VOLUME CHECK. WHEN SET, INDICATES THAT THE 
ORIVE WAS BEEN EITHER POWERED DOWN OR TURNED 
-LINE. CLEARED BY THE CLEAR VOLUME CHECK 
CCvC) BIT IN THE COMMAND HEADER WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 5. 
PHASE ENCODED DRIVE. ALWAYS SET, INDICATES THAT 
THE TSOS IS CAPABLE OF READING AND WRITING ONLY 
1600 BPI PHASE ENCODED DATA. 


WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE TAPE IS, 
THEREFORE, WRITE PROTECTED. 


OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS POSITIONED AT THE LOAD POINT AS 
— BY THE BOT REFLECTIVE STRIP ON THE 


END OF TAPE. THIS BIT IS SET WHENEVER THE TAPE 
IS POSITIONED AT OR BEYOND THE END OF TAPE 
REFLECTIVE STRIP. 





SEQ 035 
6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) 
15 14 7 12 11 10 O9 08 O7 06 05 O04 O83 02 O01 00 
ert eee ere Oe ee ee oe Me ee ee ees ee eee eee eee ee eee ee eee 
LT! TO LCORE OL! O1O!1O! iRBPLOLOL!oOrorO! tO TUM! O} 
ie | g ! '3 $ | ' s ! : ;3 H $ 23 H g 8 
me. Oe ee ee ee es ees eee eee eee ee eee eee ee 
BIT NAME TCC DEFINITION 
iS OLT 4a DATA LATE. SET WHEN THE FIFO IS FULL ON A 
READ OR EMPTY ON A WRITE. THESE CONDITIONS 
OCCUR WHENEVER THE Q-BUS LATENCY EXCEEDS THE 
DATA TRANSFER RATE OF THE TSOS. 
14 - - NOT USED. CALWAYS A 0) 
13 COR s CORRECTABLE DATA 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 
12-09 RESERVED CALWAYS A 0) 
08 RPB 4 READ BUS PARITY ERROR. SET WHEN CONTROLLER DETECTS 
A PARITY ERROR ON THE READ DATA LINES OF THE TRANSPORT BUS. 
07-02 & 00 RESERVED CALWAYS A 0) 
01 UNC 4 UNCORRECTABLE DATA ERROR. 
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ee nee ee ee, 


K3 


6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 


15 14 13 12 11 10 0O9 08 O7 06 0S 04 O83 02 01 OO 
Ce ee ees ee ees ees ees eee eee ee eee eee ee 
!0PM!: !RCE! O ! O ! ! O !WCF! O ! ! O IRL7TIRLG! IRLS!IRL4!AL3S! !RL2IRL1I!RLO! 
H 2 ! ie : g a | $ ; 3 g § $8 § g g 
Se ee ee ee es es ees eee eee eee ee eee ee 
BIT NAME TCC DEFINITION 
1S OPM Ss OPERATION IN PROGRESS. (TAPE MOVING) 
14 =6RCE 7.F2 RAM CHECKSUM ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 
ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 
MESSAGE PACKET. 
13-11 RESERVED CALWAYS A 0) 
10 WCF 7 WRITE CLOCK FAILURE. SET DURING A WRITE TO INDICATE THAT 
THE FIFO IS NOT BEING EMPTIED BY THE TRANSPORT. 
09-08 RESERVED CALWAYS A 0) 
07-00 RL - REVISION LEVEL. 


2 
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6.3.6 EXTENDED STATUS REGISTER 3 (XSTATS) 


Oe ee ee eee ee ee & ---b--- ere ee eee ees eet ee eee eee ee 
MICRO. DIAGNOSTIC ERROR CODE } t) we —— es : f] : f] tRIB! 
9200) SecnQecsQacad SocuSecadhoses Feccheweheaes Seecgeocgcces juvagasebessd 
BIT NAME TCC DEFINITION 
15 TO 08 MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES BELOW). 
07 RESERVED (ALWAYS A 0) 
06 OPI 6 OPERATION an we SET WHEN A READ, SFACE, 
OR SKIP OPERATION HAS MOVED 25 FEET OF TAPE 
WITHOUT DETECTING ANY DATA ON THE TAPE. 
OS REV S oy par OF CURRENT OPERATION WAS REVERSE (BUT 
IS 0 IF REWIND OR FORWARD) 
04 - ~ RESERVED CALWAYS A 0) 


oS OCK $.6 DENSITY CHECK. SET WHEN PE 
IDENTIF | ahh BURST (IDB) *was NOT DETECTED WHEN 
MOVING OFF OF BOT. 


02-01 RESERVED (ALWAYS A 0) 
oO = RIB é REVERSE INTO BOT. A_ READ, SPACE, OR SKIP 
OMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 
MOVING REVERSE 


BOT MARKER WHEN TAPE IN THE 
OIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 


6.3.7 EXTENDED STATUS REGISTER 4 (XSTAT4) 


is “os 2 a 10 oO ons = & = a & 


bmn Hee nm bene tene errr errr Pe ee ee eee eee er ee ee eer eee | 
-~_ ‘wr 0 °° °o 0 0 0 , * UAITE RETRY COUNT : 
ert eee eee eee Pee eer ees Oe eet fee See Oe eee eee eet oe eet Pee | 


BIT NAME TCC DEFINITION 
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1829 1S HSP s HIGH SPEED. WHEN SET, INDICATES THAT THE TRANSPORT IS 
1830 OPERATING IN HIGH SPEED MODE.(100IPS) WHEN CLEAR, THE 
tt TRANSPORT IS OPERATING IN LOW SPEED MODE. (25IPS) 
1833 14 =RCE 6 RETRY COUNT EXCEEDED. WHEN SET, INDICATES THAT THE 


| 

1834 WAS BUFFERING WRITE DATA AND COULD NOT SUCESSFULLY OUTPUT 
1835 THE BUFFERED RECORD WITHIN THE SPECIFIED NUMBER OF RETRIES. 

836 CAUSES TAPE POSITION LOST TERMINATION. 


1638 13-8 - RESERVED (ALWAYS A 0) 


1840 7-0 WRC s WRITE RECOUNT COUNT STATISTIC. THIS FIELD INDICATES, WHEN 
1641 THE CONTROLLER IS BUFFERING WRITE DATA RECORDS, THE TOTAL 
1842 NUMBER OF CONTROLLER INITIATED RETRIES PERF ORDER 
1843 TO WRITE THE PREVIOUS BUFFERED RECORD. THIS COUNT IS CLEARED 
1844 AFTER IT IS DISPLAYED. 


1848 7.0 DIAGNOSTIC HISTORY 


1651 ,; REVISION A - MAR 1962 
1852 ; - MODIFIED CZTSHC FROM TS11 FOR TSVOS 
rtf REVISION B - APR 1963 


1855 - UPDATED THE ae TO SUPPLY THE CORRECT 
1656 RECORD NUMBER DURING EXECUTION OF TEST #2. 


1857 REF: CHMIELECKI TO MITCHELL “TSVOS DATA 
1858 RELIABILITY PROBLEM”; 21-JAN-83. 


1861 * 
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CVTSEBO TSVOS DATA RELIABILITY MACRO M1113 30-NOV-83 10:17 SEQ 039 
1 
13 . TITLE PROGRAM HEADER AND TABLES 
3 SBTTL PROGRAM HEADER 
45 000000 -ENABL ABS,AMA 
46 002000 ° ca 2000 
r 4 002000 BGNMOO 
50 3o¢ 
51 : THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
= 3 THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
ges 
S4 
= 002000 POINTER BGNRPT ,BGNSW,BGNSFT ,BGNAU,BGNDU 
64 
65 002000 HEADER CVTSE.B.0,5000,1 
002000 LSNAME:: 301 TAGNOSTIC NAME | 
002000 103 -ASCII /C/ 
002001 -ASCII /V/ 
002002 -ASCII /T/ 
002003 123 -ASCII /S/ 
002004 105 -ASCII /E/ 
002005 -BYTE O 
002006 000 -BYTE O 
002007 000 BYTE O 
002010 LSREV:: sREVISION LEVEL 
002010 102 -ASCII /6/ 
002011 LSDEPO: : 30 
002011 060 -ASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000000 -WORD © 
002014 LSTIML:: sLONGEST TEST TIME 
002014 005000 -WORD 5000 
002016 LSHPCP:: sPOINTER TO H.W. QUES. 
002016 027754 -WORD LSHARD 
LSSPCP:: sPOINTER TO S.W. QUES. 
002020 030062 -WORD LSSOFT 
002022 LSHPTP:; sPTR. TO DEF. H.W. PTABLE 
002022 002174 -WORD LSHW 
002024 L¢SPTP:: sPTR. TO S.W. PTABLE 
002024 002204 -WORD LSSW 
002026 LSLADP: : sDIAG. END ADORESS 
002026 032004 -WORD LSLAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 -WORD O 
LSCo:: 
002032 000000 -WORD O 
002034 LSOTYP:: sOIAGNOSTIC TYPE 
002034 000001 -WORD 1 
002036 LSAPT:: 3APT EXPANSION 
002036 000000 .WORD O 
002040 LSOTP:; sPTR. TO DISPATCH TABLE 
002040 002124 .WORD LSDISPATCH 
002042 LSPRIO:: sOIAGNOSTIC RUN PRIORITY 
002042 000000 -WORD O 


LSENVI:: sFLAGS DESCRIBE HOW IT WAS SETUP 


eg oO Pe es ei oS Oe er Re Ea = a Ee Oe eee ls ns A es ee ee I ee ee 


en er ee 
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' PROGRAM HEADER 
002044 000000 «WORD O 
002046 LSEXPi:; sEXPANSION WORD 
002046 000000 -WORD O 
002050 LSMREV:: 3SVC REV AND EDIT @ 
002050 003 -BYTE CSREVISION 
002051 003 -BYTE CSEDIT 
002052 LSEF:: sO0IAG. EVENT FLAC 
002052 000000 -WORD O 
002054 000000 -WORD O 
i 002056 LSSPC:: 
002056 000000 -WORD O 
002060 LSDEVP:; s POINTER TO DEVICE TYPE LIST 
H 002060 002164 -WORD LSDVTYP 
002062 LSREPP:: sPTR. TO REPORT CODE 
} 002062 017570 -WORD LSRPT 
' 002064 LSEXP4:; 
| 002064 000000 -WORD O 
002066 LSEXPS: : 
002066 000000 -WORD O 
002070 LSAUT:: sPTR. TO ADO UNIT CODE 
002070 024052 -WORD LSAU 
| LSOUT:: sPTR, TO OROP UNIT CODE 
002072 024000 -WORD Ls0U 
002074 LSLUN:: sLUN FOR EXERCISERS TO FILL 
002074 000000 -WORD O 
002076 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
i 002076 002136 -WORD LSDESC 
| 002100 LSLOAD:: sGENERATE SPECIAL AUTOLOAD EMT 
' 002100 104035 EMT ESLOAD 
002102 LSETP:; sPOINTER TO ERRTBL 
002102 000000 -WORD O 
002104 LSICP:: sPTR. TO INIT CODE 
002104 021324 -WORD CL8&INIT 
002106 LSCCP:: sPTR. TO CLEAN-UP CODE 
002106 023736 -WORD LSCLEAN 
002110 LSACP:: 3sPTR. TO AUTO CODE 
002110 023314 .WORD LSAUTO 
112 LSPRT:: sPTR. TO PROTECT TABLE 
002112 021316 .WORD LSPROT 
002114 LSTEST:: sTEST NUMBER 
002114 000000 -WORD O 
LOOLY:: sDELAY COUNT 
002116 000000 -WORD O 
LSHIME:: sPTR. TO HIGH MEM 
os 002120 000000 -WORD O 
7 -SBTTL OISPATCH TABLE 
74 goo 
75 3 THE DISPATCH TABLE CONTAINS THE STARTING ADORESS OF EACH TEST. 
s IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
gee 
78 
79 002122 DISPATCH 5 


002122 000005 WORD 5 
WORD Ti 


002124 LSOISPATCH: : 
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| DISPATCH TABLE 


027054 


172520 


000051 
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101 124 
040 122 
114 111 
102 111 
111 124 
040 124 
123 124 
123 126 
065 000 


-SBTTL OESCRIPTIVE TEXT 


SEQ 041 
-WORD Te 
«WORD 13 
«WORD 14 
«WORD TS 


oe 
s2 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVICE UNDER TES 


DESCRIPT <DATA RELIABILITY TEST» 
LSDESC:: 

DEvTYP <TSVO5> 
LSOVTYP:: 


-SBTTL DEFAULT HARDWARE P-TABLE 


geo 


P-TABLE CONTAINS DEFAULT VALUES OF 
TABLE 


s THE DEFAULT HAROWARE 
s THE TEST-DEVICE PARAMETERS. 


THE STRUCTURE OF ae 5 

s IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
t-- 

BGNW 8 6DOFPTBL 
LOMA: : 
OFPTBL:: 
. WORD 172520 sTSOB ADORESS. 
-WORD 224 sVECTOR ADORESS. 
WORD O sORIVE @O FOR DEFAULT 


L10000; 
-SBTTL SOFTWARE P-TABLE 


oe 


P-TABLE CONTAINS THE VALUES OF THE PROGRAM 


THE SOF TWARE 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
t-- 


BGNSW SF PTBL 


-ASCIZ /DATA RELIABILITY TE 


-EVEN 


-ASCIZ /TSVOS/ 
-EVEN 


-WORD 110001-L8SW/2 
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_ SOFTWARE P-TABL 

002204 LéSwW:: 

002204 SFPTBL:: 
127 002204 001 CLRFLG:: .BYTE 1 sCLEAR COUNTERS F' LAG. 
128 002205 000 RRANV:: .BYTE 0 ten hg Bl RANDOM VARIABLES EACH PASS FLAG. 
129 002206 000 HAE: : BYTE O sHALT AFTER EACH COMMAND 

002207 000 ERCVER:: .BYTE O sENABLE RECOVERABLE ERROR PRINTS FLAG. 
131 002210 001 BADTSW:: .BYTE 1 1BAD TAPE SWITCH TO REWRITE ON SAME SPOT € DETECT BAD TAPE 
132 002211 000 BYTE O 

002212 000 OINT:: .BYTE O sOISABLE INTERRUPTS FLAG. 
134 002213 000 IREC:: .B6YTE 0O sINHIBIT ERROR RECOVERY FLAG. 
135 002214 000 CHGFLG:: .BYTE O sCHANGE CMD SEQ TABLE FLAG. 

002215 000 BYTE O s SPARE. 
137 002216 000 PIRE:: .BYTE 0 sINHIBIT RESIDUAL FRAMECOUNT ERROR REPORT FLAG. 
138 002217 000 ‘BYTE 0 8 ‘ 
139 002220 000040 CHAR:: CH.EAI sCHARACTERISTICS CODE (DEFAULT = 40). 

002222 000015 CMDO:: .WORD 153. sCOMMAND 2 (DEFAULT = REWIND). 
141 002224 000001 .WORDB 1 s6YTE 

002226 000001 -WORD 1 8 OF OPERATIONS 
143 002230 000007 -WORD RANP sPATTERN 

002232 000004 WORD 4 sCOMMAND S (DEFAULT = WRI 
145 002234 004000 -WORD DATCNT sBYTE COUNT (OEFAUALT = MAX SIZE). 
146 002236 076400 -WORD 32000. OF OPERATIONS "(COEF AULT s 32000). 
147 002240 000007 .WORD RANP sPATTERN (OEFAALT © ) 
148 002242 000005 WORD 3 8 4 (OEFAULT © READ REV). 
149 002244 004000 -WORD DATCNT sBYTE COUNT (OEFAULT = MAX IZE). 
150 002246 076400 -WORD 32000. r OF OPERATIONS (DEFAULT = 32,000). 
151 002250 000007 -WORD RANP sPATTERN (OEFAAALT = >. 

002252 000002 WORD 2 sCOMMAND S (DEFAULT « Ay Fu). 

002254 004000 -WORD DATCNT 18YTE COUNT COEFAULT © MAX BUFFER SIZE). 
154 002256 076400 -WORD 32000. sNUMBER OF OPERATIONS (OEFAALT = 32,000). 
155 002260 000007 -WORD RANP IPATTERN (OEFAULT © RANDOM). 

002262 000015 -WORD 15. sCOMMAND 6 COEFAULT © REWIND). 
157 002264 000001 -WORD i s6YTE 
1 000001 WORD 1 8 OF OPERATIONS 

0022 000007 .WORD RANP sPATTERN 

002272 000033 WORD - sEND OF SEQ TABLE -_ COEF) OR CMD 7 
161 002274 004000 -WORD DATCNT sBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 

002276 076400 - WORD ‘ sNUMBER OF OPERATIONS (DEFAULT = 32000). 
163 002300 000007 .WORD RANP sPATTERN (OEFAULT = ). 

002302 000033 . WORD 7 sEND OF CHD SEQ CODE (DEF) OR CMD 8 
165 002304 -WORD DATCNT sBYTE COUNT COEFAULT © MAX SIZE). 

002306 076400 .- WORD . sNUMBER OF OPERATIONS (OEFAULT = 32000). 
167 002310 000007 -WORD RANP sPATTERN (OEFAAT © ‘ 

002312 000001 TSiMD:: .WORD 1 sDEFAULT SWITCH SETTING 
169 002314 000000 :: .WORD O s ENABLE 

002316 000000 WTBUF:: .WORD O sENABLE ING 
171 002320 000000 HSSW:: .WORD oO sRUN AT 100IPS SWITCH 
172 002322 000000 EXTFEA::.WORD O sEXTENDED FEATURES SOFTWARE SW O-OFF;1°0N 
thy 002324 000000 BENBSW::.WORD O sQUFFER ENABLE SOFTWARE SW O=°O0FF;1=-0N 
175 002326 ENDSW 

002 110001; 


~ 
~d 
~“ 
: 
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202 002326 


000340 
000300 
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- TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 
yee 
s THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
3 ARE USED IN MORE THAN ONE TEST. 
gee 
EQUALS 
a 
s BIT OIFINITIONS 


BITOise= 2 


ITSe= BITOS 
BITae< BI 

BITSee BITOS 

BIT2e= BIT 

BITies BITO1 

BITOe= BI 

§ 

) EVENT FLAG DEFINITIONS 

| €FS2:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 

EF .START== 32. 1 START COMMAND WAS ISSUED 
EF RESTART*= 31. | RESTART COMMAND WAS ISSUED 
EF CONTINUE*= 30. ; CONTINUE COMMAND WAS IS: 

EF (NEWes 29: ; A NEW PASS HAS BEEN STARTED 
EF /PURee 28. tA POWER-FAIL/POWER -UP 


4 
s PRIORITY LEVEL DEFINITIONS 


PRIO7*= 340 
PRIO6** 300 





GLOBAL AREAS 


; GLOBAL EQUATES SECTION 


ee eee 


F4 


ee a —— eee 
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000240 PRIOS== 240 
000200 PRIO4== 200 
000140 PRIOSe= 140 
000100 PRIO2*= 100 
+ 000040 PRIOL== 40 
000000 PRIOO== 0 
;OPERATOR FLAG BITS 
a 
EVLe= 
000010 LOTe= 10 
000020 ADR== 
000040 TDUs« 40 
000100 ISRes 100 
UAM=® 
000400 BOE*< 400 
001000 PNT=s 1000 
002000 PRI== 
004000 IXEee 4000 
010000 IBE*= 10000 
020000 TERe= 
040000 LOE*= 40000 
100000 HOE== 100000 
s REGISTER USAGE. 
8 
’ RO - PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR. 
; Ri - COMMAND TABLE POINTER. 
’ R2 - GENERAL PURPOSE REGISTER. 
: R3 - GENERAL PURPOSE REGISTER. 
; R4 - GENERAL PURPOSE REGISTER. 
: RS - CURRENT LOGICAL DEVICE NUMBER X 2. 
: R6 - STACK POINTER. 
; R7 - PROGRAM COUNTER. 
sTHE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. ? 
100000 TS.SC*=100000 1SPECIAL CONDITION BIT. 
040000 TS .UPE==40000 1UNIBUS PARITY ERROR 
020000 TS. SPE*=20000 sSERTAL BUS PARITY ERROR. 
010000 TS .RMR==10000 iREGISTER MODIFICATION REFUSED. 
004000 TS.NXM= 24000 1NON-EXISTENT MEMORY. 
002000 TS .NBA*=2000 1NEED BUFFER ADORESS. 
001000 TS.A17*=1000 18US ADORESS BIT 17. 
000400 TS.A16==400 1BUS ADORESS BIT 16. 
TS.SSR°=200 sUNIT READY BIT. 
000100 TS.OFL==100 10FF LINE. 
177717 TSC.FCC*°177717 iFATAL CLASS CODE MASK. 
177761 TSC. TCC#=177761 s TERMINATION CLASS CODE MASK. 
sTHE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 
100000 ACK .C==100000 sACKNOWLEDGE BIT 
040000 CVC: C#=40000 sCLEAR VOLUME CHECK, 
020000 -C*#=20000 ,OPPOSITE BIT 
010000 SWB .C**10000 :SWAP BYTE BIT 
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| GLOBAL EQUATES SECTION 
251 004000 MOD .C3==4000 sMODE BIT 3 
252 004000 BRF .C==4000 1BYTE/RECORD/F ILE COUNT FLAG BIT. NOT USED 
253 i8Y TSOS BUT USED INTERNALLY BY THIS PROGRAM ONLY. 
254 002000 MOD .C2==2000 sMODE BIT 2 
255 001000 MOD .C1=*=1000 sMODE BIT 1 
256 000400 MOO .CO==400 sMODE BIT O 
257 000200 IE .C==200 s INT’ 
258 000100 FMT.C1*=100 sFORMAT BIT 1 
259 000100 VF Y.C=#100 sWRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 
260 sNOT USED BY TSOS. 
261 000040 FMT.CO*#40 {FORMAT BIT O. 
262 000040 JMP .C*=40 3JUMP BIT-TO DIRECT THIS PROGRAM TO JUMP TO 
263 3A CERTAIN LOCATION IN THE COMMAND SEQUENCE 
264 3s TABLE. TERNAL USE . 
265 000020 CMD.C4==20 sCOMMAND BIT 4 
266 000020 OLY.C*=20 sINSERT DELAY. INTERNAL USE ONLY. 
267 000010 CMD.C3==10 sCOMMAND BIT 3 
268 000004 .C2-=4 sCOMMAND BIT 2 
269 000002 CMD .Cis*2 + COMMAND 1 
270 000001 CMD.CO=*1 sCOMMAND BIT O 
272 sBIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 
274 000200 CH.ESS==200 sENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT). 
275 000040 CH.EAI*=40 sENABLE ATTENTION INTERRUPT 
276 000020 CH.ERI*=20 sENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
av? 000040 OF TSCH==CH. EAI s3DEFAULT CHARACTERISTICS CODE. 
4a sBIT DEFINITIONS FOR EXTENDED CONTROL WORD 
281 000040 EF .HSS==40 sENABLE HIGH SPEED SELECT 
282 000030 EF .RWB==30 sENABLE BOTH READ € WRITE BUFFERING 
ass 000020 EF .RBO==20 sENABLE READ BUFFERING ONLY 
285 sTHE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 
ase sIN THE MESSAGE BUFFER. 
288 000004 MS .RFC==4 OUNT. 
289 .XS0*s6 sEXT STATUS REG O 
290 000010 MS .XSi°*10 sEXT STATUS REG 1 
291 000012 MS .XS2*912 sEXT STATUS REG 2 
292 000014 MS .XS3-214 sEXT STATUS REG 3 
233 000016 MS .XS4==216 sEXT STATUS REG 4 
zoe sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
297 100000 XO. TMK ==100000 s TAPE 
298 040000 XO. RLS==40000 sRE TH SHORT. 
299 Xx0.LET==20000 sLOGICAL EOT. 
300 010000 X0.RLL*©=10000 sRECORD LONG. 
301 000100 x0. ONL==100 30N L T. 
302 000004 XO. WLK==g sWRITE LOCK BIT 
303 000002 x0.80T==2 380T 4 
508 000001 x0. E0T==1 s€OT BIT. 
aos sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 
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SEQ 046 
GLOBAL EQUATES SECTION 
308 100000 X2. OPM==100000 sOPERATION IN PROGRESS, TAPE MOVING 
309 000200 x2. EFE*=200 sEXTENDED FEATURES ENABLED 
4 000100 X2.BFE==*100 sBUFFERING ENABLED 
44 sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 
314 000010 X3.0CK*=10 sDENSITY CHECK. 
ste 157400 X3.RNY=*157400 sCAPSTAN RUNAWAY UDIAG ERROR CODE. 
+84 s THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4. 
319 100000 X%4.HSS**100000 sHIGH SPEED SWITCH INDICATING 1OOIPS 
34 040000 X4.RCE== 40000 sRETRY COUNT EXCEEDED 
322 
323 s THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
4 sPACKET ENTRIES. 
326 000000 CP.CMD==0 sCMDPKT+O*=TSOS COMMAND. 
327 000002 -ADL*#2 sCMOPKT+2°*eBUFFER ADDRESS LOW. 
328 000004 -ADH==4 sCMDPKT +4*"BUFFER ADDRESS HIGH. 
oH 000006 CP.CNT==6 sCKDPKT ¢6**BYTE/FILE/RECORD COUNT 
a4 sMISCELLANEOUS DEFINITIONS. 
333 000340 INTPRI*=PRIO7 sPRIORITY TO BE USED IN INTERRUPT STATE. 
334 000012 SCHCNT=912 sARBITRARY BYTE LENGTH FOR CHARACTERISTIC 
335 8 LENGTH. CEVEN @) 
336 000020 MSGCNT ==20 sMES: LENGTH IN BYTES. CEVEN @) 
337 000020 DIACNT==20 sOIAGNOSTIC COMMAND EXTENT. 
338 004000 DATCNT==2048. 8 RECORD LENGTH IN BYTES, 
339 sTHIS COUNT BE A MALTIPLE 
340 sPROPER READ/WRITE BUFFER ALLOCATION BY THE SUPER 
341 177740 RNOPSC*=177740 sRANDOM @ OF TIONS ° 
342 RANP«=7 sCODE TO CT RANDOM PATTERN. 
343 RRECL©916. sREAD RECOVERY ATTEMPT LIMIT. 
344 WRECL=916. sWRITE RECOVERY ATTEMPT LIMIT. 
345 153624 RANBC*=153624 sCONSTANT USED TO GENERATOR BASE. 
0 RANSCee sCONSTANT USED TO RESET RANDOM @ ~_ LOCATION. 
347 177774 NINUSE**177 sNOT IN USE CODE FOR DEVICE STATE TABLE. 
348 177740 NCMD.C="ACK, "tteve. C:0PP.C!Swe. C1M00. C3!M0D.C2!M0D.C1!MOD.CO!IE.C!FMT.CitFMT.CO 
+4 sNOT “COMMAND” BITS. 
os sTHE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TSOS COMMAND. 
353 100013 ORI== ACK.C!ICMD.C3!CMD.C1!CMD.CO 
nd sORIVE INIT. 
356 104001 ROFe=  ACK.CIBRF.C!CMD.CO 
44 sREAD FORWARD 
359 104401 ROR== ACK.CIBRF.C!MOD.CO!:CMD.CO 
nee sREAD REVERSE 
362 104005 WRTe= ACK.CIBRF.CICMD.CO!CMD.C2 


sWRITE COMMAND 


' Gu 


365 
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104105 


104010 


104410 


105401 


125401 


105001 


125001 


105005 


102010 


100012 


100011 


101011 


105010 


105410 


100017 


100411 


100412 


101012 


140004 
140006 


WTVes 


ee nn eee 


14 


SEQ 047 
ACK .CIGRF .CivFY.C!CMD.CO!CMD.C2 
sWRITE VERIFY 


ACK.CIBRF.CICMD.CS 
sSPACE RECORD FORWARD 


ACK.CIBRF .C!MOD.CO!CMD.C3 
sSPACE RECORD REVERSE 


ACK. soseane C!M00.C1!M00.CO!CMD.CO 
READ REV RETRY1 - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 


ACK. ial} ge C!M00.C1!M0D.CO!CMD.CO 
READ REV RETRY2 - REREAD NEXT FORWARD, IE.READ FORWARD, SPACE REVERSE 


ACK.C!@RF .C!M0D.C1!:CMD.CO 
sREAD FWO RETRY1 - REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORWARD 


ACK.C!BRF .C!OPP. yt 2 Naty co 
sREAD 


FWO RE - REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORWARD 

ACK .C:00.Ci!BRF.C!CMD.C2!CMD.CO 

sWRITE RETRY 
ACK .C!MOD.C2!CMD.CS 

sREWIND COMMAND 
ACK .C!CMD.C3!CMD.C1 

sMESSAGE BUFFER RELEASE 
ACK .C!CMD.C3!CMD.CO 


sWRITE TAPE MARK. 


ACK .C!M0D.C1!CMD.C3!CMD.CO 
sWRITE TAPE MARK RETRY. 


ACK.C!BRF.C!MOD.C1i!CMD.CS 
sSPACE FILE FORWARD 


ACK. .C!@RF .C!MOD.CO!MOD.C1!CMD.C3S 
sSPACE FILE REVERSE 


ACK .C!CMD.CO!CMD.C1!CMD.C2!CMD.CS 
sGET EXTENDED STATUS 


ACK .C!MOD.CO!CMD.C3S!CMD.CO 
sERASE 3 INCHES OF TAPE 


ACK.C!MOD.CO!CMD.C3!CMD.Ci 
sUNLOAD COMMAND 


ACK .C!MOD.C1i!CMD.CS!CMD.Ci 
sERASE TAPE, 


ACK.C:CvC.C!CmD.C2 sSET DEVICE CHARACTERISTICS. 


ACK. .Ci!CvC.CiCMD.C2!CM0.C1. sWRITE SUB-SYS MEM 





oe eee ee ee re nee oe 
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423 100006 
424 

425 000040 
427 000020 
429 177777 


| 

! 

| 

; 

| 

| 

| 
431 
432 
433 
434 


441 002330 
442 


002340 
451 002340 100017 


465 
466 002350 102010 
rot 002352 000001 
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DIAs= ACK.C!ICMO.C2!CMO.C1 
JMP=s= = MPC 
OLY*= OLY.C 
END== 177777 
-SBTTL GLOBAL DATA SECTION 
1 THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 


s IN MORE THAN ONE TEST 
gee 


sOIAGNOSTICS. 

sJUMP TO "N”TH COMMAND 
sDELAY “N” MS. 

sEND OF COMMAND SEQUENCES 


’ COMMAND PACKET. 

© <,o3>E177774 sMUST BE ON MOD 4 BOUNDRY. 

CMOPKT:: O 31ST WORD IS TSOS COMMAND. 
0 32ND WORD IS THE BUFFER LOW ADDRESS. 
ce) 3RDO WORD IS THE BUFFER HIGH ADDRESS. 
0 34TH WORD IS THE BYTE/RECORD/FILE COUNT. 

3 GET STATUS COMMAND PACKET. 

‘ 8 <,03>E€177774 sMUST BE ON MOD 4 BOUNDRY. 

GSCPK:: .WORD GES 

3 MESSAGE BUFFER RELEASE COMMAND PACKET. 

‘ 6 <,03>E€177774 sMUST BE ON MOD 4 BOUNDRY. 

BRCPK:: .WORD MBR 

4 REWIND COMMAND PACKET (CUSED IN ERROR RECOVERY ONLY) 

‘ 2 <.3>€177774 sMUST BE ON MOD 4 BOUNDRY. 

RWCPK:: .WORD RWD 
-WORD 1 

iq WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 


MSGPKT:: .BLKW 6. 11ST WORD:: MESSAGE TYPE. 
s2ND WORD:: DATA FIELD LENGTH. 


s3RO WORD:: RESIDUAL FRAME COUNT. 


37TH WORD:: XSTATS 
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GLOBAL DATA SECTION 

479 36TH WORD:: XSTAT4 

r++] ’ MESSAGE PACKETS. 

482 002374 MSGPKO:: .BLKW 68. sMESSAGE PACKET FOR DEVICE 40 

483 002414 MSGPK1i:: .BLKW 6. sMESSAGE PACKET FOR DEVICE 61 

484 002434 :: .BLKW 8, sMESSAGE PACKET FOR DEVICE ¢2 

ro 002454 MSGPKS:: .6LKW 6. sMESSAGE PACKET FOR DEVICE 3 

po 34 3 SET CHARACTERISTIC BLOCK. 

489 002474 002374 SCHBK:: MSGPKO 31ST WORD:: MSGPKT ADDR LOCSET UP BY EXCUTE ROUTINE). 

490 002476 000000 0 32ND WORD:: MSGPKT ADOR HI. 

491 002500 000020 MSGCNT 23RD WORD:: MSG BUFFER LENGTH (BYTES) 

492 002502 000040 CH.EAI 34TH WORD:: CHARACTERISTICS WORD(SET BY SETUP ROUTINE). 

Zon 002504 000000 0 35TH WORD:: HSP € BUFFER CONTROL ON EXT‘D FEATURES 

495 

pts 4 3 WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 

498 002506 000000 WSMBK:: O 31ST WORD:: SEL O 

499 002510 000000 r) s2ND WORD:: SEL 2 

94 002512 000000 0 33RD WORD:: SEL 4 

a 8 TSOS REGISTER ADDRESSES. 

504 002514 TSOB:: .BLKW 4 sTSOS DATA BUFFER ADORESSES. 

505 002524 TSSR:: .BLKW 4 sTSOS STATUS REGISTER ADORESSES. 

506 002534 TSVCT:: .BLKW 4 sTSOS VECTOR ADDRESSES. 

a4 002514 TSBA==TSOB sDATA BUFFER ADORESS REGISTER. 

S09 

a4 8 ADDRESSES OF MESSAGE PACKETS. 

512 002544 002374 MSGPKA:: MSGPKO . sDEVICE 0. 

513 002546 002414 MSGPK1 sOEVICE 1. 

514 002550 002434 MSGPK2 sDEVICE 2. 

44 0025S2 002454 MSGPK3 sDEVICE 3. 

44 8 ADORESSES OF INTERRUPT HANDLING ROUTINES. 

519 002554 010034 TSSINT:: TSSINO sOEVICE O. 

520 002556 010042 TSSIN1 sDEVICE 1. 

521 002560 010050 TSSIN2 sDEVICE 2. 

ase 002562 010056 TSSINS sDEVICE 3. 

524 3 TSOS CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
000000 TSSCL:: O sDEVICE 0 

527 002566 000000 0 sOEVICE 1 

528 002570 000000 re] sOEVICE 2 

ae 002572 000000 f+) sOEVICE 3 

sos ’ TSOS EXT. FEA € BUF. ENA SW'S, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 

533 002574 000000 TSSSW:: O sDEVICE O 

534 002576 000000 f¢] sOEVICE 1 


35 002600 000000 fe) sDEVICE 2 





GLOBAL AREAS MACRO M1113 30-NOV-83 10:17 SEQ 050 
GLOBAL DATA SECTION 
oe 002602 000000 0 sOEVICE 3 
538 F UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4). 
539 : WHEN DEVICE IS NOT IN USE, IT,S LOCATION WILL = -3. 
eat ’ RS WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2. 
542 002604 177774 DEVTBL:: .WORD NINUSE 
S43 002606 177774 -WORD NINUSE 
544 002610 177774 . WORD NINUSE 
S45 002612 177774 -WORD NINUSE 
44 002614 177777 . WORD END 
548 
sag 3 BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
Sse ’ “WRTY” TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 
SS2 002616 BTADOR:: BTO 
553 002620 003120 BT1 
554 002622 003172 BT2 
SSS 002624 003244 BT3s 
a ry COUNTER AREA. 
558 002626 CNTBGN-, 
559 002626 WRBC:: .BLKW 20 sBYTES WRITTEN. 
002666 RRBC:: .BLKW 20 sBYTES READ REV. 
561 002726 RFBC:: .BLKW 20 sBYTES READ " 
0027 WRREC:: .BLKW 4 sRiE ITE ‘ 
563 002776 WRUNR:: .BLKW 4 sUNRECOVERABLE WRITE ERRORS. 
RRREC:: .BLKW 4 i READ REV 
S65 003016 RRUNR:: .BLKW 4 sUNRECOVERABLE READ . 
00 RFREC:: .BLKW 4 sRECOVERABLE READ FWDERRORS. 
S67 003036 RFUNR:: .BLKW 4 COVERABLE 
00 BTO:: -OLKW 21. sUNIT O BAT TAPE SPOTS LOG 
569 003 BTl:: -BLKW 1. sUNIT 1 BAT TAPE SPOTS LOG 
570 003172 BT2:: -OLKW 21. sUNIT 2 BAT TAPE SPOTS LOG 
71 00. BT3:: -BLKW 21. sUNIT 3 BAT ma, SPOTS LOG 
S72 003316 WRTYCT: -BLKW 4 sWRITE RETRY COUNTER 
00 PASCNT:: .6LKW 4 sPASS COUNT. 
574 003336 SCCNT:: .BLKW 4 1 SPECIAL CONDITION COUNT. 
003 VFYCNT:: .6LKW 4 . sCOUNT OF TSOS DATA COMPARE ERRORS. 
576 003356 HROCNT:: .BLKW 4 S COUNT — ERRORS 
S77 003366 FILCNT: 3 -BLKW 4 sCOUNT OF FATAL ERRORS. 
003376 T SEND OF STATICTICAL COUNTERS. 
579 003376 RECCNT: : -BLKW 4 sNUMBER OF RECORDS FROM BOT: CLEARED ON REWIND 
SAND WHEN RESTARTING OR CONTINUING TEST 2. 
ssi 000550 CNTLEN==CNTEND -CNTBGN sLENGTH OF STATISTICAL COUNTER AREA. 
583 
584 a THE FOLLOWING ARE THE DEFINITIONS OF VARIABLES 
- 8 USED BY THE PROGRAM. 
587 003406 DATAWT:: .WORD O sWRITE BUFFER ADORESS. 
588 003406 OIABLK==DATAWT sWRITE BUFFER ALSO USED FOR DIAG CMD. 
589 003410 000000 DAT 8. f+) sREAD BUFFER ADORE 
003412 000000 NCNTss . 0 sSTORAGE FOR V OF N. 
591 003414 000000 NCNT1:: .WORD 0O sTEMP STORAGE FOR VALUE OF N. 
592 003416 000000 BRFCNT:: .WORD O sSTORAGE FOR BPCR VALUE. 


ee = oe ee ree. 
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| GLOBAL DATA SECTION 
593 003420 177777 CMOWRD:: .WORD END CONTAINS COMMAND WORD BEING EXECUTED PRESENTLY. 
594 003422 177777 CMDSAV:: .WORD END iSAVE LOCATION FOR CMD WORD DURING ERROR RECOVERY 
595 003424 177777 PCHOWD:: .WORD END sCONTAINS PREVOUS WORD. 
596 000000 CMDLG:: .WORD 0 1CURRENT COMMAND LOGGING CODE. 
597 003430 000000 LENMSK:: .WORD © sRANDOM WRITE LENGTH MASK, TO BE SET UP BY TESTS 
598 003432 153624 RANB:: .WORD 153624 sRANDOM @ GENERATOR BASE. 
599 003434 032561 RANS:: .WORD 32561 }RANDOM @ SAVE LOCATION. 
600 003436 000000 TIME1:: .WORD 0 ; COUNT 1. 
601 003440 000000 TIME2:: . WORD sTIME COUNT 2. 
602 003442 000000 JLOOP:: :WORD 0 + JMP COMMAND 
603 000000 JLOC:: .WORD 0 COMMAND LOCATION COUNT. 
604 00 000000 PATERN:: .WORD 0 PATTERN SELE : 
605 003450 000000 CTCC:: .WORD 0 T TERMINATION CLASS CODE. 
606 003452 000000 SAVE:: .WORD 0 ;LOCATION FOR SAVING CURRENT DEVICE POINTER. 
607 003454 000000 TSSREG:: .WORD 0 ICURRENT STATUS REGISTER. 
608 003456 000000 WTMFLG:: .WORD 0 SWRITE TAPE MARK FLAG 
610 : ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
611 ‘ AFTER EACH COMMAND IS COMPLETED. 
613 003460 BGNFLG=. 
614 003460 RETRYC:: . 0 1@ OF RECOVERY ATTEMPTS EXECUTED. 
615 003462 000 RPTCNT:: .BYTE 0 sWRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 
616 003463 000 WRIYFG:: .BYTE 0 {WRITE RETRY ON SAME SPOT IN PROGRESS FLAG 
003464 000 TYER:: .BYTE 0 sWRITE RETRY ON SAME SPOT ERROR FLAG 
618 003465 000 CLOG:: .BYTE © sRECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
619 003466 000 ERLOG:: .BYTE 0 }DATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS RECORD. 
620 003467 000 RWERR:: .BYTE 0 sREAD/WRITE ERROR HAS OCCURED. 
621 003470 000 UNREC:: .BYTE 0 sUNRECOVERABLE ERROR HAS OCCURED. 
622 003471 000 ERRREC:: .BYTE 0 sERROR RECOVERY MODE. 
624 003472 .. 
626 
627 : ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 
629 003472 INTFLG:: .BLKW 4 sINTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
003 EOTFLG:: .BLKW 4 sEOT/BOT FLAGS FOR EACH DEVICE (XSTATO) 
631 003512 000000 BTPT:: WORD O TAPE SPOT POINTER TO BTO-BT3 VIA BTADOR 
632 003514 000 EXPBOT:: .BYTE 0 1B0T IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 
003515 000 RANDOM:: .BYTE 0 sRANDOM EVERYTHING 
003516 000 VFYFLG:: .BYTE 0 }SET OURING WRITE/VERIFY COMMAND 
635 003517 000 TFLG:: .BYTE 0 , REPORT HAS BEEN REQUESTED. 
003520 000 2: .BYTE 0 sENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO. 
637 003521 000 IRE:: .BYTE 0 VINHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
003 000 2: .BYTE 0 sCURRENT UNIT HAS BEEN 
639 003523 000 TiSWB:: BYTE 0 ;TEST1 SWAP BYTES FLAG 
003 000 ALLEOT:: .BYTE 0 ALL UNITS ® EOT FLAG 
641 003525 000 ERSFLG:: .BYTE 0 sERASE FLAG: DO ERASE AFTER A SPACE REV TO DELETE 
1BADLY WRITTEN RECORD. 1 TO 4 ERASES LEAVING 
643 1A 3 TO 12 INCH GAP MAY RESULT. 
644 .EVEN 
645 003526 ENDFLG=. 
647 , ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 
649 003526 000 STAFLG:: .BYTE 0 sSTART FLAG - SET BY INIT CODE IF STARTING. 
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GLOBAL DATA SECTION 

650 003527 000 PWRFLG:: .BYTE 0 sPOWER FAILURE FLAG - SET ONLY DURING INIT. 
651 003530 000 TRAPD4:: .BYTE 0 s TRAPED AT 4 FLAG 
652 003531 000 MISCFG:: .BYTE O SCELLANEOUS FLAG 
653 003532 000000 SUNT:: .WORD 0 iNUMBER OF THE UNIT UNDER TEST PLUS HSSPEBUF 
654 00: 000000 :: WORD O sFOR PRINT OUT UNIT @ ONLY 
656 : OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
657 1 SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 
659 003536 000000 OPFLAG:: .WORD 0 sREAD ONLY OPERATOR FLAG WORD 
661 
662 sTHE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
663 tHAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
664 iCAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 
666 003540 140004 CMDSEQ:: .WORD SCH sSET CHARACTERISTICS. 

003542 000040 .WORD CH.EAI 
668 003544 000001 ;WORD 1 
669 003546 000000 .WORD 0 
670 003550 102010 CMDSE2:: .WORD RWD 3 
671 003552 000001 .WORD 1 sB8YTE COUNT. 

003554 000001 WORD 1 ' : 

003556 000007 .WORD RANP sPATTERN. 
674 003560 104005 .WORD WRT sWRITE. 

003562 004000 .WORD DATCNT BUFFER , 

076400 .WORD 32000. 332,000 RECORDS. 
000007 .WORD RANP sRANDOM PATTERN. 

678 003570 104401 .WORD ROR \ REV. 
679 003572 004000 .WORD OATCNT sMAX BUFFER LENGTH. 

003574 076400 .WORD 32000. 332,000 RECORDS 
681 003576 000007 .WORD RANP sRANDOM PATTERN. 

003600 104001 .WORD ROF sREAD FWD. 

003602 004000 .WORD DATCNT MAX BUFFER LENGTH. 
684 003604 076400 .WORD 32000. 332,000 RECORDS 

003606 000007 .WORD RANP sRANDOM PATTERN. 
686 003610 102010 .WORD RMD . 
687 003612 000001 WORD 1 sBYTE COUNT. 
688 003614 000001 WORD 1 10 
689 003616 000007 “WORD RANP ATTERN. 
690 .BLKW 40, + EXTENSTION TO DOUBLE BUFFER SIZE 
691 003740 177777 SEQEND:: .WORD END sSOFT END OF SEQUENCE TABLE. 

003 77777 .WORD END 
693 003744 177777 .WORD END 
694 003 177777 .WORD END 
695 003 177777 .WORD END sHARD END OF SEQUENCE TABLE. 
oe THE FOLLOWING IS THE TS05 COMMAND TABLE 
698 003 100013 CMDTBL:: .WORD ORI sORIVE INIT. 
699 003754 104001 .WORD ROF sREAD FORWARD. 
700 003756 104401 .WORD ROR sREAD REVERSE. 
701 003760 104005 .WORD WRT ;WRITE 
702 003762 104105 .WORD WTV ;sWRITE/VERIFY. (WRITE ALL RECORDS, ROR AND 
70 sCHECK DATA ON ALL RECORDS. ROF AND 
704 sCHECK DATA ON ALL RECORDS.) 
705 003764 104010 .WORD SRF sSPACE “N” RECORDS Fi 
706 003766 104410 .WORD SRR sSPACE “N” RECORDS REVERSE. 
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GLOBAL AREAS 
GLOBAL DATA SECTION 


] 
| 
707 003770 105401 .WORD RNR sREAD Next REVERSE. I. E.. SPACE FWD, READ REVERSE. 
708 003772 125401 “WORD RINE sREAD NEXT FORWARD, I.€.. READ FORUARD SPACE REVERSE. 
709 003774 105001 “WORD = RPF sREAD PREVIOUS FORWARD. I.€., SPACE REVERSE, READ FORWARD 
710 003776 1 “WORD PR SREAD PREVIOUS REVERSE. I.€.. READ REVERSE. SPACE FORWARD 
711 004000 105005 “WORD MRR SWRITE RETRY, 
712 004002 102010 “WORD RUD sREWIND. 
713 004004 100012 “WORD MBR IMESSAGE BUFFER RELEASE 
004006 100011 “WORD «TM 1WRITE TAPE MARK 
715 004010 101011 [WORD WTR sWRITE TAPE MARK RETRY. 
716 004012 105010 “WORD  SFF sSPACE °N” FILES FORWARD. 
717 004014 105410 [WORD SFR sSPACE °N” FILES REVERSE. 
718 004016 100017 “WORD GES IGET EXTENDED STATUS. 
719 004020 100411 ;WORD ERS sERASE 3 INCHES OF TAPE. 
720 004022 100412 “WORD «UNL }REWIND AND UNLOAD. 
721 004024 101012 “WORD CLIN ' TAPE, 
722 004026 140004 “WORD SCH sSET CHARACTERISTICS. 
723 004030 100006 “WORD OIA }DIAGNOSTIC COMMAND. 
728 000040 [WORD UMP 1JUMP TO THE NTH COMMAND IN THE SEQUENCE. 
725 "WORD OLY IOELAY “N° HS. 
726 004036 177777 “WORD END 1END OF COMMAND TABLE 
728 ' THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 
730 004040 104 122 111 CMDASC:: .ASCII /DRI/ sORIVE INIT. 
731 004043 122 104 106 .ASCII /ROF/ ;READ FORWARD. 
732 004046 122 104 122 “ASCII = /ROR/ ' : 
733 004051 127 122 124 “ASCII §/WRT/ sWRITE 
734 004054 127 “ASCII | /WTV/ sWRITE/VERIFY. (WRITE ALL RECORDS, ROR AND CHECK DATA 
7 30N ALL RECORDS, ROF AND CHECK DATA ON ALL RECORDS. ) 
736 004057 123 122 106 .ASCII /SRF/ sSPACE °N” RECORDS ; 
737 004062 123 122 “ASCII «= /SRR/ SPACE "N° RE REVERSE. 
738 004065 122 116 122 “ASCII /RNR/ sREAD NEXT REVERSE. I.€.. SPACE FWD READ REVERSE 
739 004070 122 116 106 "ASCII § /RNF/ READ NEXT FORWARD. I.6.. READ FORWARD. SPACE RE : 
740 004073 122 120 106 “ASCII /RPF/ PREVIOUS FORWARD. IE., SPACE REVERSE, READ FORWARD 
741 004076 122 120 122 “ASCII /RPR/ SREAD PREVIOUS REVERSE. IE.. READ REVERSE. SPACE FORWARD 
742 004101 127 122 122 “ASCII = /WRR/ sWRITE RETRY. 
743 004104 122 127 104 "ASCII §/RWD/ sREWIND. 
744 004107 115 102 122 “ASCII /*BR/ RELEASE 
745 004112 127 124 115 “ASCII «= /WTM/ sWRITE TAPE MARK 
746 004115 127 124 122 [ASCIT §/WTR/ SWRITE TAPE MARK RETRY. 
747 004120 123 106 106 “ASCII = /SFF/ sSPACE “"N" FILES FORWARD. 
748 004123 123 106 122 “ASCII = /SFR/ sSPACE “N° FILES REVERSE. 
749 004126 107 105 123 [ASCII /GES/ sGET EXTENDED STATUS. 
750 004131 105 122 123 “ASCII /ERS/ ' 3 INCHES OF TAPE. 
751 004134 125 116 114 “ASCII /UNL/ ;REWIND AND . 
752 004137 103 114 116 “ASCII /CLN/ 1CLEAN TAPE. 
753 004142 123 103 110 "ASCII /SCH/ ISET CHARACTERISTICS. WHERE BAF*200, 40, 0. 
1SEE_TSVO5/TSOS PROGRAMMING SPECIFICATION 20a DESCRIPTION. 
755 004145 104 111 101 .ASCII /DIA/ sOIAGNOSTICS. SEE TSVOS/TSOS PROGRAMMING SPECIFICATION 
IFOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC DATA 
sINTO THE WRITE BUFFER BEFORE THIS CM IS ISSUED. 
758 004150 112 115 120 .ASCII /UMP/ :JUMP TO THE NTH COMMAND IN THE 
sSEQUENCE TABLE, WHERE N IS DEFINED IN 
760 sTHE @ OF OPERATIONS. 
761 004153 104 114 131 .ASCII /OLY/ sDELAY “N“ MS, WHERE N IS DEFINED IN 
7 1THE @ OF OPERATIONS. 
763 004156 105 116 104 .ASCII /END/ 1END OF COMMAND SEQUENCE. 
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- GLOBAL DATA SECTION 
764 .EVEN 


768 -SBTTL GLOBAL TEXT SECTION 


id 
771 ’ THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
772 s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
Lh s MORE THAN ONE TEST. 

gee 


8 
784 s FORMAT STATEMENTS USED IN PRINT CALLS 
t 


787 -NMLIST BEX 
788 


789 004162 045 116 045 CODELM:: .ASCIZ /SNSAUNIT SD1S8A TSOS CODE LEVEL sO30NeN/ 
790 004231 0465 116 045 SWSET:: .ASCIZ /SNSAUNIT #018A TSOS SWITCH SETTINGS SO36NEN/ 


004306 130 130 130 HALTM:: .ASCIZ /XXX CMD - TYPE <CR> TO CONTINUE/ 
ree 004346 103 115 104 CMDPKM:: .ASCIZ 700 PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD!/ 


-EVEN 
795 004430 104 101 124 WTVERM:: .ASCIZ /DATA COMPARE ERROR/ 
796 004453 116 117 040 TOERM:: es Ae atid ew 4 


ASCIZ 

ASCIZ /SADRIVE SD1SA OFF LINESN/ 

ASCIZ /SAGET STATUS CHD RESULTS: aN/ 
/ENBABUS TRAP AT 


BOGMA/ 
621 005570 045 101 i111 -ASCIZ /SAINTERFACE BAD OR TSOG NOT SET TO ABOVE ADORESS&N/ 
822 005653 040 052 OS2 UNIWLK;: .ASCIZ / eeeesTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSeeeess 
a4 005741 045 116 000 CRLF:: 


° /aN/ 
005744 045 116 045 CRLFSP:; .ASCIZ /sNeS7/ 
-LIST BEX 
826 -EVEN 


797 004475 125 116 104 SCERM:: . INED C COND/ 
798 004521 122 103 RFCERM:: .ASCIZ 
799 004536 124 123 126 a /TSVOS NOT READY/ 
800 004556 122 105 124 ts .ASCIZ /RETRY LIMIT EXCEEDED/ 
801 004603 104 111 ATTN4:: .ASCIZ OFF LINE/ 

106 116 -ASCIZ TION CTs 
803 004642 106 101 124 FATSM:: .ASCIZ /FATAL fe mt a ERROR/ 
804 004670 116 117 040 WNOINTM:: .ASCIZ INTERRUPT/ 

124 101 120 TSAM:: .ASCIZ /TAPE STATUS ALERT/ 
806 004727 117 117 TOOMM:: .ASCIZ /TOO MANY $/ 
807 0047535 103 101 120 RNYM:: .ASCIZ /CAPSTAN RUNAWAY-GET STATUS RESULTS:/ 
808 005017 105 103 RERM:: .ASCIZ /RECOVERABLE ERROR/ 

1 116 ts .ASCIZ /UNRECOVERABLE ERROR/ 

045 116 045 ss .ASCIZ /SSADROPPED UNIT SDisN/ 

811 005114 045 116 045 AUORPM:: .ASCIZ UNI 
12 O45 116 045 ts .ASCIZ /SNSADIAGNOSTIC ONLY SUPPORTS ONE CONTROLLERENSN/ 
15 005226 045 116 045 OTAER2:: .ASCIZ “SNSABYTE : SD4EdS20ANAS; 4B: ” 

814 005275 045 104 064 OTAERS:; .ASCIZ “SD4aA evree IN ERROR OUT OF sD4eN° 
815 005337 045 101 116 OTAER4:: .ASCIZ /SANO DATA READEN/ 
816 005360 045 101 OTAERS:: .ASCIZ TOO LONG: >8048A BYTESEN/ 
817 005422 045 101 WURTYiss . RETRY @8D2uN/ 


| GLOBAL AREAS MACRO M1115 30-NOV-83 10:17 SEQ 055 


| GLOBAL ERROR REPORT SECTION 
927 .SBTTL GLOBAL ERROR REPORT SECTION 
829 gee 
830 ; THE GLOBAL ERROR REPORT ASECTION CONTAINS THE PRINTB AND PRINTX CALLS 
831 1 THAT ARE USED IN MORE ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
ese 3 THAT ARE USED BY THE PRINTS AND PRINTX CALLS.. 
gee 
834 
835 
836 005752 BGNMSG OTAERM 
005752 DTAERM:: 
842 005752 DATERM: :PRINTB @STAER1, TSNP,PASCNT(RS),RECCNT(RS) 
005752 016546 003376 MOV RECCNT(RS), -(SP) 
005756 016 003326 MOV PASCNT(RS). -(SP) 
005762 016746 175546 MOV TSNP, -¢ 
127. MOV @STAER1, -(SP) 
005772 012746 MOV 04, -(SP) 
005776 0 MOV ;RO 
006000 104414 TRAP CSPNTB 
006002 000012 ADO 612,SP 
843 006006 PRINTB @STAER7 
006006 012746 006530 MOV @STAERT, -(SP) 
006012 012746 000001 MOV #1, -C(SP) 
006016 01 MOV 
006020 104414 TRAP  CSPNTB 
006022 062 ADO : 
006026 010267 001034 MOV . 1SAVE R2 
845 006032 010367 MOV RS, TIME1 sSAVE R3 
006036 010467 175376 MOV ; SAVE 
847 006042 7 16 JSR PC.RECTAP sRETRIEVE RECORD READ 
006046 016 001014 MOV sRESTORE R2 
849 006052 010367 001010 MOV RS. RECRED sSAVE RECORD READ 
016703 MOV TIME1.RS sRESTORE RS 
851 006062 016704 175352 MOV sRESTORE R4 
PRINTB @STAER6,RECRED sPRINT RECORD READ 
016746 000774 MOV RECRED. -(SP) 
012746 MOV @STAERG, -( SP) 
006076 012746 000002 MOV @2, -(SP) 
006102 01 MOV : 
006104 104414 TRAP = C9PNTB 
006106 062706 000006 ADO 66.SP 
853 006112 EXIT MSG 
006112 000167 .WORD JSUMP 
006114 "WORD 110002-2-. 
6s4 EVEN 
855 
856 006116 
0061 L10002: ; 
, OO6116 104425 TRAP = C8MSG 
858 006120 BGNMSG STAERM 
006120 STAERM: : 
859 006120 STAERM::PRINTB @STAER1, TSNP,PASCNT(RS),RECCNT(RS) 


006120 016546 poo da RECCNTCRS),. -CSP) 


006124 016546 
006130 016746 175400 
006134 012746 006436 


TSNP, 


MOV 

3326 MOV PASCNTC(RS), -C SP) 
MOV -(SP) 
MOV @STAER1, -(SP) 
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70 
861 006174 
862 006200 
863 006204 
864 006206 
865 006210 
866 


871 006332 
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000004 
000012 
006530 
000001 


174150 
177740 


we ee eet eee eee eee 00 e-em 4 See eS RE 
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500008: 


PRINTS 


PRINTX 


PRINTX 


PRINTX 


PRINTX 


he 


@STAER7 


CMDPKT ,R2 
la 


@STAER2 


@STAERS , CMOPKT , 8TSDB(RS ) .MSGPKT oMS .RFC, TSSREG.CT 


@STAER4S , CMDPKT +2, CMDPKT o4 , CMDPKT 06 


sIF CMD IS A READ 


sTHEN RETRIEVE 
3 ANO 
sTYPE RECORD READ 


MOV 


3388 


EEE 


338 § 


RAP 


ag3 


PEEEEE EB PEELE EEE 


———-—_ + 


SEQ 056 


@4,-(SP) 


CsPNTB 
612,SP 


@STAERT, -CSP) 
#1, -(€SP) 


SP RO 
CsPNTB 
64,SP 


RECRED, -(SP) 
@STAERG, -(SP) 
42. afsP) 
CsPNTB 

$6,SP 


@STAER2, -( SP) 
#1,-CSP) 


SP RO 
C8PNTX 
@4,SP 


orc -(SP) 


#12,SP 


@STAERS ,MSGPKT oMS .XSO,MSGPKT MS .XS1 ,.MSGPKT +MS .XS2,MSGPKT oMS .XS3,.MSGPKT MS. XS 


338338 


@STAERS, -(SP) 
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GLOBAL ERROR REPORT SECTION 
006416 012746 000006 MOV #6, -(SP) 
006422 010600 MOV SP, 
006424 104415 TRAP = CSPNTX 
062706 000016 ADD $16,SP 
873 006432 EXIT MSG 
32 000167 .WORD JUMP 
a 006434 000432 “WORD 110003-2-. 
875 .NLIST BEX 
876 006436 045 101 130 STAER1: -ASCIZ /GAXXX CMD FAILED - UNIT #01SS3SAPASS: SDSSS3SARECORD : SDSEN/ 
878 006530 045 101 120 STAER7: .ASCIZ /SAPREVIOUS CMD WAS XXX / P 
879 006562 045 123 061 STAER6: .ASCIZ /sS1isAe RECORD READ:SDSSA « 
880 006616 045 116 045 STAER2: .ASCIZ /sNSACMDPKTS: S2sAT SBASS4ZARF CASSHATSSAUS3BATCCHN/ 
881 006675 045 117 066 STAER3: .ASCIZ /8068S2N06sS26068S2N068S2ED10N/ 
882 006733 045 117 066 STAER4: .ASCII /s060N/ 
883 006740 045 117 066 “ASCII 4 /8060N/ . 
884 006745 045 117 066 “ASCIZ /#06s0N/ : 
885 z 045 101 130 STAERS: .ASCII /sAXSTOSS4SAXST1SS4SAXSTOMS4SAXST3SS4SAXST4UN/ 
886 007027 045 117 066 [ASCIZ /8068S2N068S2N06NS2N06NS2N06EN/ 
oH LIST BEX 
889 007066 000000 RECRED: .WORD 0 sRECORD READ FROM TAPE 
891 007070 ENDMSG 
007070 L10003: 
oe 007070 104423 TRAP C8MSG 
893 .SBTTL GLOBAL SUBROUTINES SECTION 
895 oe 
896 } THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
897 3 THAT ARE USED IN MORE THAN ONE TEST. 
898 §ee 
899 
900 
901 
305 ° 
ce }ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
905 :BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
906 sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
$07 ;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
3 
$08 sINPUTS: 
gi1 ; RS CURRENT UNIT NUMBER 
913 ; 
914 ;OUTPUTS; 
916 ; RO CONTENTS OF TSSR, IF ERROR 
917 ; CARRY SET IF INIT WAS OKAY 
918 , CLEAR IF FATAL S ERROR 
§ 
920 sCALLING SEQUENCE: 
921 ' JSR PC,FIRSTU 
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GLOBAL SUBROUTINES SECTION 


922 
923 


er ee ee ee eee 


G5 
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172766 
177772 
177756 


002524 
176277 
002200 


005670 
002524 


a JSR PC, SOFINIT 
i BCS CONTINUE 
3 ERROF sREPORT FATAL ERROR 
8 
eg 
SOF INIT: : 
s CSAVREG) SAVE THE REGISTERS 
MOV #0, 8TSSRCRS) ' . 
JSR PC.WS sWAIT FOR UNIT TO BE READY 
MOV #360. ,.RS 
28: JSR PC ,WAITF s WAIT FOR SSR 
ecs 38 
DELAY 250 
MOV 
. WORD 
MOV 
. WORD 
DEC 
BNE 
DEC 
BNE 
DEC R3 
BNE 2s 
3: MOV ee RO 4 THE TSSR REGISTER 
MOV sTSSR CONTENTS 
BIC ereeTS. A17!TS.A16!TS. OFL> Ra 
BIS @TS.SSR!TS.NBA,R4 R4 HAS EXPECTED CONTENTS 
CMP R4,RO SONLY EXPECTED BITS SET ? 
BEQ sé iBRANCH IF OKAY 
CLC sCLEAR THE CARRY FOR ERROR 
BR 10% sGO TO EXIT 
S$: SEC sSET THE CARRY BIT 
108: RTS PC SRETURN TO CALLER 
8 
s SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
5 
s INPUTS: 
8 
’ RS CURRENT UNIT NUMBER 
5 
8 
sOUTPUTS: 
: 
8 RO CONTENTS OF LAST TSSR READ 
8 CARRY SET - READY BIT SET 
3 CLR - TIMEOUT WAITING FOR READY 
5 
WAITF:: BREAK s DO A SUPVSR BREAK FIRST. on 
MOV 3000. , -(SP) s 300 MSEC TIMER. 
26; MOV STSSRCRS) RO }READ THE TSSR REGISTER 
TSTB RO sTEST FOR READY BIT SET 
BMI 3% s EXIT ON STOP FLAG. 
DELAY 25 s WAIT —_ 


SEQ 058 


#250 ,CPC)« 
UsoLy.cPC)+ 
-6CPC) 
22¢PC) 

20 


CsBRK 


@25.(€PC)+ 
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1014 007310 
1015 007312 
1016 007320 
1017 007322 
1018 007326 


a me ee ce. ee ee 3 + er ee = 2 a ee ee nee ee nee 
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GLOBAL SUBROUTINES SECTION 


172662 
177772 
177756 


002514 
177704 


000200 000012 
172774 


H5 
SEQ 059 
«WORD O 
DEC -6(PC) 
BNE a° 
a -22(PC) 
DEC CSP) sREDUCE DELAY COUNT 
BNE es sRETRY UNTIL TIMER EXPIRES 
CLC s C = 0, CONTROLLER STILL RUNNING... 
BR 4s 3...OR HUNG-UP AFTER 300 MSEC. 
38: SEC s C = 1, CONTROLLER IS STOPPED. 
4%; as Sh }RESTORE STACK WITHOUT CHANGING CARRY BIT 


t¢ 

3 

sROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND AND CHECK FEATURES 
3 

3s INPUT: 

RA ADDRESS OF COMMAND PACKET 

RS CURRENT UNIT NUMBER 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


TSSR CONTENTS 
SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


RO 
CARRY 


IMPLICIT OUTPUT: 


oe SWITCHES SET AS FOLLOWS: 
EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


sSIDE EFFECTS: 
$ 


WRICHK: ; 
108: MOV R4,8TSOBCRS) sSEND OUT C 

JSR PC ,WAITF }WAIT FOR SSR 

6cs 408 38R, IF SSR 7S et NO & 

6R 606 1BR IF TROUBLE CARRY = CLEAR 
408: TST CR4)6 sSTEP IT 

MOV (R4),R2] iPOINT TO WRT CHARA DATA PACKET 

CR2),R3 sGET ADORESS OF MESSAGE @UFFER 


MOV 
BIT @X2.EFE.MS.xXS2C(R3) sEXTENDED FEATURES BIT SET? 


BEQ 45% sR IF NO 
sSET EXTENDED FEATURES SW SWITCH 


INC EXTFEA 


ay 
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MACRO M1113 30-NOV-83 10:17 
GLOBAL SUBROUTINES SECTION 
1019 007326 032763 000100 000012 BIT 
001402 BEQ 
1021 007336 005267 172762 
1022 007342 S08: 
000261 SS$: SEC 
1024 344 000401 BR 
1025 007346 000241 608; CLC 
017500 002524 708: 
000207 


1029 3¢ 


002514 108: 
177616 


007554 + 
000261 SS$: SEC 
BR 


000241 608 cic 
1055 007434 70% : 


1059 3° 


s 
s INPUT: 
Ra 


OUTPUT: 
RO 


~ 
-—- = oe oe Ge Ge Ge 


I5 


oX2.BFE.MS.xXS2CR3) 
50% 
BENBSW 


708 
S@TSSRCRS),RO 
PC 


bs 
sROUTINE TO CHECK WRITE LOCK CONDITION 


ee 


SEQ 060 


;BUFFER ENABLE SWITCH SET 
18R, IF SWITCH NOT SET 
sSET SOFTWARE SWITCH FOR ENABLED ~ 


+ 18 CARRY NO TROUBLE 
I CARRY 


Y CLEAR = ERROR 
sRETURN TSSR CONTENTS 
sRETURN 


ADDRESS OF COMMAND PACKET 
CURREN NUMBER 


T UNIT 


R4, 8TSOBCRS) 
WAITF 


rf aK, MS. XSOCR3) 
1, UNTIWLK 


3s SEND 

sWAIT FOR SSR 

368R, IF SSR IS SET AND OK 

36R IF TROUBLE CARRY = CLEAR 

sSTEP IT 

sPOINT TO WRT oi. A alig PACKET 

GET SS OF MESSAGE BUFFER 

sIS UNIT WRITE LOCKED? 

sNO,PROCEED WITH TESTING 

TAPE IS WRITE LOCKED 
TRAP CSERHRD 
- WORD 1 
. WORD UNIWLK 
-WORD O 

sOROP IT 

VEXIT he ton, 

tr CARRY NO TROUBL 

1 EAARY CLEAR = ERROR 

sRETURN 


}ROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND 


ADDRESS OF COMMAND PACKET 


TSSR CONTENTS 


RS CURRENT UNIT 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 





a a a ni eee aa SS See eee 
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GLOBAL SUBROUTINES SECTION 


’ CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
1Ora i CLR - WRITE CHARACTERISTICS FAILED 
’ 
1075 sIMPLICIT OUTPUT: 
1076 ’ 
1077 3 
1078 ’ 
1079 sSIDE EFFECTS: 
1080 3 
1081 3 
1082 s- 
1083 
1084 007436 WRTICHR: : 
1085 007436 010475 002514 108%: MOV R4,8TSOBCRS) sSEND OUT C 
1086 007442 004767 177536 JSR PC ,WAITF sWAIT FOR SSR 
1087 007446 103401 6cs 50% 36R, IF SSR IS SET AND OK 
10868 007450 000402 BR 60% 38R IF TROUBLE CARRY = CLEAR 
1089 007452 508: 
1090 007452 000261 SEC sSET CARRY NO TROUBLE 
1091 007454 000401 BR 70% sEXIT 
1092 007456 000241 608: CLC sCARRY CLEAR = ERROR 
1093 007460 017500 002524 708: MOV STSSRCRS),RO sRETURN TSSR CONTENTS 
1094 007464 000207 RTS PC ;RETURN 
1095 
1096 
1097 3¢ 
1098 3 
tt sROUTINE TO DO SET UP OF RUNNING CONDITIONS 
’ 
1101 s INPUTS: 
1102 3 
1103 5 RS CURRENT UNIT NUMBER 
1104 ’ 
1105 3 
106 sOUTPUTS: 
1107 ; 
1108 5 
1109 sCALLING SE 
1110 3 PC, FIRSTU 
1111 ry PC, SOF 
1112 ’ ecs CONTINUE 
1113 3 ERROF sREPORT FATAL ERROR 
1114 3 JSR PC ,MOSET 
1115 3 
1116 ‘- 
1117 
1118 007466 MOSET:: BREAK : DO A SUPVSR BREAK FIRST. 
007466 104422 TRAP CsBRK 
1119 007470 004767 000272 JSR PC, SETOEF sRESTORE DEFAULT 
1120 007474 004767 177656 JSR PC ,WLKCHK sCHECK WRITE LOCK 
1121 007500 103416 bcs is 3C#1 IS 0O.K. 
1122 007502 DELAY 1 sWAIT 
7502 012727 000001 MOV #1,CPC)>+ 
007506 000000 . WORD 
007510 016727 172402 MOV LSOLY,.CPC)+ 
007514 000000 . WORD 
007516 005367 177772 DEC -6(PC) 
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GLOBAL SUBROUTINES SECTION 


177756 


173742 


173702 


173642 


1155 007712 
1156 
1157 007714 
1158 
1159 007722 
1160 


016767 
000207 


172562 


72 
1173 007724 
1174 007724 012767 140006 172376 


MACRO M1113 350-NOV-83 10:17 


18%: TST 
BNE 


2s: JSR 


BR 
3%: TST 


JSR 
abs JSR 
JSR 


BR 
S$: TST 


KS 


TSUNT , SCHBK +10 
PC 


sBREAK TO SUPER 


TRAP CSBRK 
100 CLEAN AND ABORT 
TRAP CSOCLN 
IN DEFAULT MODE? 
s YES, RETURN 
sRESTORE DEFAUL 
GO DO SW 


ITCH CHECK 
100 ME RUN AT 100IPS? 
1YES,SET THE BIT 

}ARE WE SET? 

sYES 

LINVERT THE SWITCH 
NOW SET THE MODES 
;00 IT 

RUN WITH WRITE BUFFERING? 
1YES SET THE BITS 
ARE WE SET? 

3 

LINVERT THE SWITCH 
NOW SET THE MODES 
100 IT 

1RUN WITH READ BUFFERING? 
1YES SET THE BITS 
}ARE WE SET? 

sYES 

INVERT THE SWITCH 
iNOW SET THE MODES 
300 IT 


sAND UNIT @ 
sRETURN 


INVERT SENSE OF EXT‘'D FEATURES SWITCH 


@WSM, CMDPKT «CP. CMD 


sWRT SUB-SYS MEM 
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GLOBAL SUBROUTINES SECTION 
1175 007732 012767 002506 172372 MOV 
1176 007740 012767 000006 172370 MOV 
1177 007746 012767 100010 172532 MOV 
1178 007754 012704 002330 MOV 
1179 007760 767 177452 JSR 
1180 007764 000207 RTS 
1181 
1182 3 
1183 3 SUBROUTINE TO 
1184 3 
1185 s INPUTS: 
1186 3 
1187 5 
1168 3 
1189 sOUTPUTS: 
1190 8 
1191 : R4 
1192 
1193 007766 SETOEF : : 
1194 007766 012701 MOV 
1195 007772 010167 172332 MOV 
1196 007776 012767 74 172326 MOV 
1197 010004 012767 12 172324 MOV 
11986 010012 012767 172462 MOV 
1199 010020 016767 173506 172456 MOV 
1200 010026 0127 330 MOV 
1201 010032 RTS 
1202 
1203 
1204 ry MODULES 
1205 
1206 
1207 010034 BGNSRV 
010034 TSSINO:: 
1208 010034 005267 173432 
1209 010040 
010040 L10004; 
010040 000002 
1211 010042 
O1 TSSIN1:: 
1212 010042 005267 173426 INC 
1213 010046 ENOSRV 
010046 L10005: 
010046 000002 
1214 
1215 010050 v 
01 TSSIN2:: 
1216 010050 005267 173422 
1217 010054 Vv 
010054 L10006: 
010054 000002 
1219 010056 
01 TSSINS:: 
0 005267 173416 


SEQ 063 
»CMDPKT+CP . ADL iMSG BUF 
»CMOPKT +CP .CN sB8YTE COUNT 
pe a > mat sINVERT THE SWITCH 
° 8 
PC ,WRTCHR 3:00 IT 
sRETURN 


SETUP DEFAULT SET CHAR CMD 


ADORESS OF COMMAND PACKET 


@SCH,R1 sWRITE CHAR CMD 
R1,CMDPKT «CP .CMD sSET UP COMMAND 
@SCHBK, +CP. ADL sSET UP ADR LO TO POINT TO MSG BUFCMSGPKO) 
@SCHCNT, TeCP.CNT ;SET BUFFER EXTENT 
@0F TSCH, SCHBK +6 sSTORE CHARACTERISTIC CODE IN SCH BLOCK. 
TSUNT , SCHBK +10 sUNIT @ 
@CMOPKT ,.R4 sADDRESS OF CMD PACKET 
sRETURN 


TO HANDLE TSOS INTERRUPTS. 


TSSINO 
INTFLG sSET INTERRUPT OCCURRED FLAG. 
RTI 
TSSIN1 
INTFLGe2 sSET INTERRUPT OCCURRED FLAG. 
RTI 
TSSIN2 
INTFLG+4 sSET INTERRUPT OCCURRED FLAG. 
RTI 
TSSINS 
INTFLG+6 sSET INTERRUPT OCCURRED FLAG. 
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| GLOBAL SUBROUTINES SECTION 
| 010062 10007: 
rene 010062 000002 RTI 
| 1223 3 SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 
1224 i PRINTS. 
| : INPUTS: 
: OUTPUTS: R3 = RECORD | COUNT READ 
1227 ’ REGISTERS: R2, R3, 
saa8 ’ CALLS: 
1230 010064 032767 000400 173326 RECTAP::BIT #00 .CO, CMDWRD sREAD REV FETCH 
1231 010072 001430 BEQ 5000 
1232 010074 016702 172260 MOV MSGPKT oMS .RFC,R2 sFIND LAST READ AD. 
1233 010100 066702 173304 ADO DATARD ,.R2 
1234 010104 032702 000001 BIT @8ITOO,R2 3000 AD., REASSEMBLE 
1235 010110 001417 BEQ 50002% 
1236 010112 005202 INC 2 sREC COUNT STARTING 
1237 010114 111203 MOVE CR2).R3 sWITH UPPER BYTE FETCH 
1238 010116 142703 177400 BICB #177400,R3 
1239 010122 000303 SWAB BS 
1240 010124 005302 DEC R> sLET R2 :* R2 - @1 sLOWER BYTE AD. 
1241 010126 105767 173366 TSTB SWEFLG sIFB SWBFLG NE @0 THEN 
1242 010132 001401 BEQ 50003¢ 
1243 010134 005302 DEC Re sLET R2 :* R2 - O1 sLOWER BYTE AD. ON SWAP 
1245 010136 50003$: 
1246 010136 111204 MOVB CR2),R4 sFETCH LOWER BYTE 
1247 010140 142704 177400 BICB #177400,R4 
2248 010144 050403 ers R4,R3 
1289 010146 000401 50004 
1250 010150 50002¢: 
1251 010150 011203 MOV CR2),.R3 sLET RB := CR2) sEVEN AD. FETCH 
1252 010152 50004$: 
1253 010152 000402 BR 50005% 
1254 010154 500018: 
1255 010154 017703 173230 MOV SDATARD ,R3 sLET R3 := SDATARD ;READ FWD FETCH 
1257 010160 50005%: 
1238 010160 000207 RTS PC 
| 1260 3 SUBROUTINE TO STORE A SET CHARACTERISTIC COMMAND AS 
| 1261 ; THE FIRST ENTRY IN THE SEQUENCE TABLE. 
1262 3 INPUTS: 
1263 : OUTPUTS: 
iss : Sue 
$ 3 
1266 
1267 010162 SETCH:: 
12686 010162 012701 003540 MOV @CMDSEQ.R1 sINIT CMD SEQUENCE TABLE POINTER. 
1269 010166 012721 140004 MOV @SCH, (R1)+ I THIS COOE SETS UP A SET CHARACTERISTIC 
1270 010172 012721 000040 MOV @OF TSCH, (R1)+ sCOMMAND AS THE FIRST COMMAND IN THE 
1271 010176 012721 000001 MOV #1,C(R1)> 3 SEQUENCE 
1272 010202 005721 TST CR1i)« 1SKIP PATTERN LOCATION. 
1273 010204 000207 RTS PC 
12 ; SUBROUTINE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 
INPUTS: 
| 
1 
} 
| 
| 
L 
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GLOBAL 
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SUBROUTINES SECTION 


1309 010306 
1310 010314 
1311 010322 
1312 010330 
1313 010336 
1314 010344 
1315 010346 
1316 


1326 010366 
1327 010372 
1328 010376 
1329 


1330 010402 
1331 010402 
1332 010410 


002003 
012767 


016767 


102010 
000001 
000001 


003540 
177777 
000726 


173140 


000602 
173227 
173124 
173212 


173140 


104005 


173116 
173112 
173066 


173060 
000022 


173042 


171754 


177777 


500158: 


500146; 
50013: 
500128: 


500168: 





SEQ 065 
OUTPUTS: 
REGISTERS: 
CALLS: 
MOV @RWO, CR1)> sCMD = REWIND. 
MOV #1,(R1i)+ 1ORF . 
MOV #1,(R1)> 3@ OF OPERATIONS. 
TST CRi)> sSKIP PATTERN. 
RTS PC sRETURN 
SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 
INPUTS: - 
OUTPUTS: | R2 © TERMINATION INDICATOR (O*END OF TABLE,1-E0T) 
: 
CALLS: CMDAC , SETUP , EXSUB , CKHAE , NEXTU, FIRSTU, VFYDAT. 
Mov @CMDSEQ,R1 sINIT SEQUENCE TABLE POINTER. 
cw (R1), #END sWHILE THERE ARE CMDS IN THE SEQUENCE TABLE. 
JSR PC, SETUP :GO SETUP THE COMMAND BLOCK. 
BREAK : DO A SUPVSR BREAK FIRST. 
TRAP CSBRK 
4 oe engl ape laentneaaleentainpate: 
JSR PC ,.CMDAC sSTORE CMD ASCII IN ERROR MESSAGE. 
TST8 RANDOM sIF IN RANDOM MODE: 
BEQ 500128 
CMP CMOWRD, sIF CMD IS A WRITE THEN: 
BNE 500138 
TST8 VFYFLG sIF DATA IS NOT TO BE VERIFIED THEN: 
BHE 500148 
ADO RANS ,RANB :LET RANB := RANB + RANS ,GENERATE 
ADO KAN. RANS sLET RANS :* RANS + RANB ; 
MOV RANS ,ORFCNT sLET BRFCNT :©= RANS sLENGTH 
BIc ; sMASK RANDOM LENGTH. 
oe BRFCNT. #18. 300 NOT ALLOW BYTE COUNT OF LESS THAN 18 
MOV 018. .BRFCNT sCHANGE COUNT OF 0-17 TO 18. 
MOV BRFCNT , CMDPKT+CP.CNT sMOVE BRF TO CMD PACKET. 
JSR PC, EXSUB sISSUE CMD TO ALL, AWAIT INTs. CHECK STATUS. 
JSR PC, CKHAE 1 CHECK HALT ATER EACH CMD F 
MOV #1,R2 sLET R2 : T ALL UNITS AT BOT/EOT. 
JSR PC. FIRSTU ‘FIND FIRST UNIT. 
CMP DEVTBL(RS), @END sWHILE THERE ARE MORE UNITS: 
BEQ 500176 : 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1333 010412 
1334 010420 


1357 010472 
1338 010474 
1359 


1360 010476 
1361 010476 
1362 010502 


1364 010510 
1365S 010512 
1366 010512 
1367 


1368 
1344 010516 


1389 010550 


005267 
016767 
000655 
004767 


005002 
000207 
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172710 
172712 


173000 
003502 


003502 
172744 


172714 


177777 
172652 
003502 


500218: 
500208; 


500248; 


500178: 


500118: 


284 tee ts mates sIF CMD IS REVERSE THEN: 
BIT @x0.BOT ,EOTFLG(RS ) sIF NOT AT BOT THEN: 

BNE 500218 

CLR Re sLET R2 :* @O ,CLEAR EOT/BOT FLAG. 


500228 
BIT @x0.EOT ,EOTFLGCRS) 
BE 500258 
BIT #CMD.CO,CMDOWRD 
BNE 500248 


sELSE IF CMD IS NOT REVERSE: 


sIF NOT AT EOT OR NOT A MOTION CMD THEN: 


CLR R2 :CLEAR EOT/BOT FLAG. 

JSR PC ,NEXTU 1FIND NEXT UNIT 

BR 168 

cop R2,01 ,IF ALL UNIT ARE AT EOT/BOT THEN: 
BNE 500256 

BR EXARTN sRETURN WITH 82 © 61. 


NCNT sLET NCNT :* NCNT + @1 
CMDUROD 


sUPDATE RECORD COUNT. 
oPCHOWD sSAVE PREVIOUS COMMAND WORD. 


sIF LAST CMD WAS A WRITE VERIFY, THEN GO 
sVERIFY THE LAST N RECORDS OF DATA. 


Re sLET R2 :* @O SET NORMAL RETURN INDICATOR. 
sRETURN 


RTS PC 


SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 
ALL  - Seaeaattis AND CHECK ALL STATUS. 
INPUTS: 


OUTPUTS: 

REGISTERS: 

CALLS: EXCUTE ,GOWAIT ,NEXTU,FIRSTU. 

JSR PC.FIRSTU sSET UP FOR FIRST UNIT. 
DEVTBLCRS), @END sWHILE THERE ARE MORE DEVICES: 
500278 


sIF CMD IS REVERSE THEN: 
sIF NOT AT BOT 


BE 

BIT @M00 .CO, CHOWRD 

BE 500 

BIT @x0.BOT ,EOTFLGC(RS) 


SEQ 066 


—_——_—-—— J 
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GLOBAL SUBROUTINES SECTION 


1429 
“= 010704 
1432 010704 
1433 
1434 010704 
1435 010704 
1436 


1437 010710 


0724 
1443 010726 
1444 010726 
1445 010732 
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000001 
172730 
001252 


001244 


172626 
001150 


003502 


003502 
172536 


500338: 
500328; 


500348: 
500318: 
$0030: 


500378: 


500408; 


50042%; 
500418; 
500356: 


500278: 


500436: 
500446; 


30-NOV-83 10:17 


~W@ 
gReana 


Y 


TST8 
BE 


mm re nr mm er a es 


SEQ 067 


300318 
@x0.EOT ,EOTFLGCRS ) sBUT IF AT EOT 
500328 


ALLEOT ,AND ALL OTHERS AT EOT 
PC, EXCUTE THEN EXECUTE REV CMD 

IF NOT ALL AT EOT, FREEZE UNIT(S) AT EOT 
500348 1IF NOT AT BOT AND 
PC, EXCUTE sNOT AT EOT, EXEC REV CHD 
500358 sELSE IF CHD IS NOT REVERSE: 
CHDLG, ¢2 
500563 
@x0. BOT, EOTFLGCRS) 
500368 

CLEAR BAD SPOT COUNTS WHEN WRITING FROM BOT 
BTADOR(RS).BTPT sLET BTPT := BTADOR(RS) 
SBIPT iLET GBTPT :* @0 
@x0.EOT,EOTFLGCRS) 
500378 
@CMD CO, CHOWRD 
500408 

:IF NOT AT EOT OR NOT A MOTION CHD THEN: 
PC, EXCUTE ISSUE CHD TO TSO5 
500418 
ALLEOT :IF® ALLEOT NE #0 THEN 
500428 
PC, EXCUTE 
PC,NEXTU :FIND NEXT UNIT IN TEST CYCLE. 
500268 
RPTELG 1IF REPORT HAS BEEN REQUESTED THEN: 
RPTFLG iCLR THE FLAG, 

PRINT THE PERFORMANCE REPORT. 

TRAP — CADRPT 

PC,FIRSTU SET UP FOR FIRST UNIT. 


— 





oe oe en 


D6 


| GLOBAL AREAS MACRO M1113 30O-NOV-83 10:17 SEQ 068 
_ GLOBAL SUBROUTINES SECTION 
1446 010732 026527 002604 177777 CMP DEVTBL(RS),@END ;WHILE THERE ARE MORE DEVICES: 
1447 010740 001450 BEQ 50045% 
1448 010742 032767 000400 172450 BIT @H00 .CO, CMOWRD sIF CMD IS REVERSE THEN: 
1449 010750 001421 BEQ 50046 ae 
1450 010752 032765 000002 003502 éIT @x0.B0T EOTFLGCRS) ;IF NOT AT BOT 
1451 010760 001014 BNE 5004 
14S2 010762 032765 000001 003502 BIT @x0.EOT .EOTFLGC(RS) sBUT IF AT EOT 
1453 010770 001406 BEQ 500508 
1454 010772 105767 172526 TSTB8 ALLEOT sAND ALL OTHERS AT EOT 
1455 010776 001402 BEQ 500518 
1456 011000 004767 001360 JSR PC ,GOWAIT sTHEN WAIT FOR CMD END 
1457 sIF NOT ALL AT EOT, DO NOT WAIT 
1458 011004 500518: 
1459 sNOT AT BOT, AND NOT AT EOT 
1460 011004 000402 BR 50052% ; 
1461 011006 500508: a 
we 011006 004767 001352 JSR PC ,GOWAIT sWAIT FOR INT,CHECK STAT 
1464 011012 500528: 
1465 
1466 
1467 011012 500478; 
1468 011012 000420 BR 500536 sELSE IF CMD IS FORWARD: 
1469 011014 500468: 
1470 011014 032765 000001 003502 BIT @x0.EOT ,.EOTFLGC(RS) 
1471 011022 001404 BEQ 500548 
1472 011024 032767 000001 172366 BIT @CMD .CO, CHDWRD 
1473 011032 001003 ONE 500558 
1474 011034 500548; 
1475 3sIF NOT AT EOT OR NOT A MOTION CMD THEN 
ate 011034 004767 001324 JSR PC .GOWAIT sWAIT FOR INT.CHECK STATUS. 
1478 011040 000405 6R 500568 
1479 011042 $0055; 
1480 011042 105767 172456 TSTB ALLEOT sIFB ALLEOT NE @0 THEN 
1481 011046 001402 BEQ 500578 
ae 011050 004767 001310 PC .GOWAIT 
1484 011054 500578: 
1486 011054 500568: 
1487 
1488 011054 500536; 
ps4 011054 004767 006070 JSR PC,.NEXTU sFIND NEXT UNIT IN TEST CYCLE. 
1491 011060 000724 BR $00446 
1492 011062 500456; 
pte 011062 000207 RTS PC sRETURN. 
1495 ry THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 
LASS, 8 COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMDWRD 
1497 8 CONTAINS CURRENT CMD AND LOCATION PCMDOWD CONTAINS PREVIOUS CMD. 
1498 4 INPUTS: 
1499 fT OUTPUTS: 
1500 t REGISTERS: RS, R4, 
1501 8 CALLS: GCMDA 
1502 





- GLOBAL AREAS 
' GLOBAL SUBROUTINES SECTION 


NES OS a eee 


1503 011064 
1504 011070 


MACRO M1113 30-NOV-83 10:17 


ee a. + 


E6 


SEQ 069 


172330 CMDAC:: MOV CMOWRD ,R4;LET R4 :© CMOWRD 1R4 = CMD BINARY. 
000042 JSR A sGET CMD ASCII. 
175340 MOVB = (RS)+, STAERL+2 sMOVE CMD ASCII 
175335 MOVB (R3)+,STAERL¢S ' 
MOVE (R3),STAERIC4 sINTO MSG. 
172310 MOV PCMOWD ,R4 3R4 © PREVIOUS CMD BINARY. 
00001 JSR PC 1GET CMD ASCII. 
175430 MOVB (RS) +, STAERT+24 sMOVE CMD ASCII 
1 MOVE  (R3)+,STAER7+¢25 
175422 MO CRS), STAERT +26 sINTO MSG. 
RTS PC sRETURN. GO EXECUTE NEXT FUNCTION. 
' SUBROUTINE TO FIND THE ASCII EQUIVILENT OF THE COMMAND IN R4. 
, ADDRESS OF ASCII 1ST WORD I S RETURNED IN R3. 
, INPUTS: © PRESENT COMMAND WORD. 
: OUTPUTS: RS © ADORESS OF PRESENT COMMAND ASCII. 
, REGISTERS: 
3 CALLS: 
GCHOA: CLR R3;LET RE :* @0 sINIT CMD TOL POINTER. 
50060 3 
003752 cre CHOTBL(RS),RA ;UNTIL CURRENT CMD IS FOUND: 
000002 ADO 22,R3 }LET RB :* RB + 02 sSEARCH CMD TABLE. 
BR 500608 
500618: 
MOV R3.R4 LET R4 3° RS 
ASR RS sPOINT TO ASCII FOR THAT COMMAND 
ADO R4.RS 
004040 ADO @CMDASC RS 
RTS PC ;RETURN, 
' THIS SUBROUTINE LOADS THE TSOS COMMAND PACKET FROM ONE 
’ ENTRY IN THE SEQUENCE TABLE. 
3 INPUTS: 
' OUTPUT 
' REGISTERS: R2, R3. 
4 CALLS: AT. 
30 SETUP:: CLR :CLR CMD LOGGING CODECDISABLES LOGGING) 
171126 MOV (R1)+, CMDPKT sLOAD THE WORD . 
171130 MOV (Ri), CMOPKT «CP.CNT }LOAD THE BYTE/RECORD/FILE COUNT. 
MOV (R1).BRECNT sSAVE BRF FOR THIS COMMAND. 
171112 MOV T,R2 sGET CMD. 
177740 BIC .€,R2 :CLR ALL BUT CMD BITS. 
MOV R2.R3 sSAVE IT TWICE. 
000010 SUB @CMD.C3,R3 sPOSITION COMMAND? 
BNE 28 :8R IF NOT. 
171074 mov CRL),CHOPKT +2 sMOVE BPCR'IN 2ND PKT WORD FOR POSITION CMD. 
171064 100011 2%: cre CHOPKT . @uTH sIF CMD IS A WRITE TAPE MARK THEN: 
000002 172150 MOV @2,CMOLG )WTM LOGGING CODE IS 2. 





GLOBAL AREAS 
GLOB. 


1560 011256 


1570 011314 
1571 
1572 011322 


1610 011530 
1611 011532 
1612 

1613 011540 
1614 011540 


1615 011546 
1616 011554 


Se a 


MACRO M1113 30-NOV-83 10:17 
AL SUBROUTINES SECTION 


000001 
172116 
000400 


000020 
003406 
171776 
171770 


172006 


171704 
170606 
171770 


010000 


004900 
170556 


171036 
171026 


172114 


172104 


170770 
170766 


171122 


170734 
170722 


170666 


171750 
170644 


172022 
170626 


171706 
171674 


170570 


270562 
171646 


500648: 
18%: 


4t: 


50065$: 


500678; 


MOV 


M0 

BIT 
BEQ 
MOV 


=z 


PREP EE EEE CEE ERLE 


@ 
~ 
o 


ag es 


F6 


R2,R3 
+ eaeacaee 


DATARD , CMOPKT +CP . ADL 
M00 CMDPKT 


#4, CMOLG 


RS 
@CMD.C1i!CMD.C2,R3 


@DIACNT ,CMDPKT +CP.CNT 
@DIABLK , CMDPKT «CP. ADL 
CR1)> 

CR1)+,NCNTL 


CR1)+ .PATERN 
ocr. CO!CMD.C2,R3 
DATAMT .CHDPKT «CP. ADL 
PC ,GENPAT 
eVEY.C.CHDPKT 

500658 

01, VFYFLG 
OVFY.C,CMDPKT 


SEQ 070 
sIS IT A READ? 
s6R IF NOT. 
sIF SO, LOAD THE BUFFER ADOR. 
sIF CMD IS A READ REV THEN: 


sLOGGING CODE IS 4 
sELSE - IF CMD IS A READ Fu: 


sLOGGING CODE IS 6. 


ere. 
A i CHARACTERISTICS CMD? 


sBR NOT. 
iSET UP _ADR LO FOR SET CHAR. 
+e one BUFFER EXTENT 

oer e SF eee CODE IN SCH BLOCK. 
g 


sCONT 

its IT 

sA OIAGNOSTIC COIA) CMD? 
s6R IF P 

3sLOAD BUFFER EXTENT. 


sLOAD BUFFER ADR LOW. 
sPOINT TO N CNUMBER OF TIMES TO EXECUTE THIS INS 
sSAVE NUMBER OF OPERATIONS 


sCLEAR OPERATION COUNTER. 
sSAVE PATTERN CODE FOR CURRENT CMD. 


sIS IT 
3A WRITE? 
8 IF NOT 
sLOAD WRITE BUFFER LO ORDER. 
TE THE WRITE PATTERN. 
sWRITE LOGGING Is 2. 
sIF DATA VERIFICATION IS REQUIRED: 
sSET VERIFY FLAG. 
sCLEAR VERIFY BITCNOT USED BY HARDWARE). 


BI 
sIF DATA VERIFICATION IS NOT REQUIRED: 
sCLR VERIFY FLAG. 


sSAVE PREVIOUS CMD WORD. 
sSAVE PRESENT CMD WORD. 
LIF SWAP BYTES IS ENABLED: 


sSET SWAP BIT IN COMMAND. 


sCLR BRF BIT CINTERNAL ONLY). 
1SAVE 1ST WORD OF COMMAND PACKET. 
IRETURN. 





| GLOBAL AREAS 


1630 011576 
163i 011602 
1632 011606 
1633 011612 
1634 011616 
1635 


1658 011670 
1659 


1660 011674 
1661 011674 
1662 


1663 011676 
1664 
1665 
1666 
1667 011700 
1668 011704 
1669 011710 
1670 011712 
1671 011714 


1672 
1673 011716 


016703 


MACRO M1113 30-NOV-83 10:17 SEQ 071 


GLOBAL SUBROUTINES SECTION 


171664 
171626 
000001 
000002 
171600 
000002 
011620 


177777 
000002 


THIS SUBROUTINE SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 
THE _ PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 
INPUTS: 


OUTPUTS: 
REGISTERS: R2, R3, RA. 
CALLS: PATRO - PATR7 
GENPAT: :HOV PATERN.RS sSETUP PATTERN ROUTINE POINTER 
nov BRFCNT.Re sSET LENGTH OF WRITE BFR 
BIC #1,R4 sROUNDED UP TO NEXT WORD 
SUB @2,R4 IWITH FIRST WORD RESERVED 
nov DATAWT Ra 1FOR RECORD COUNT 
JSR PC.GPATTBL(RS) GO GENERATE THE APPROPRIATE PATTERN. 
RTS PC }RETURN TD SETUP SUBROUTINE. 


sTSOS WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
sCORRECT DATA PATTERN GENERATING ROUTINE. 


PATTBL: at 


sINCREMENTING PATTERN. 0 - 377. 


PATRO:: MOV #400,R3;LET RS := @400 
18: SUB @2,R4;LET R4 := R4 - @2 ;DECREMENT WORD COUNT. 
BMI 2s 8 DONE. 
MOV R3,CR2)¢ sSTORE DATA WORD. 
ADD #1002 ,R35 sUPDATE PATTERN. 
CMP R3,#1000 3IF PATTERN HAS WRAPPED AROUND THEN: 
BNE 50070¢% 
MOV #400,R3 sINIT THE PATTERN AGAIN. 
500708: 
BR 18 300 IT AGAIN. 
2s: RTS PC sRETURN. 
sALL ONE’S PATTERN. 
PATRi:: MOV @-1,R3 sALL ONES PATTERN; . 
ZROPAT: @2,R4 sDECREMENT BYTE COUNT. 
rT is s00NE?.BR IF YES. 
MOV RS,CR2)¢ LIF NOT LOAD NEXT BYTE WITH PATTERN. 
BR ZROPAT 300 IT AGAIN. 


18: RTS PC sRETURN, 





GLOBAL AREAS 
_ GLOBAL SUBROUTINES SECTION 


1695 011760 004767 
1696 011764 000207 
1697 

1698 

1699 

1700 

1701 011766 012703 
1702 011772 004767 
1703 011776 000207 
1704 

1705 

1706 

1707 012000 012703 
1708 012004 162704 
1709 012010 1 
1710 012012 010322 
1711 012014 000773 
1712 012016 

1715 

1714 

1715 

1716 012020 162704 
1717 012024 100411 
1718 012026 066767 
1719 012034 066767 
1720 012042 016722 
1721 000764 
1722 012050 000207 
1723 

1724 

1725 

1726 012052 000207 
1727 

1728 

1729 

1730 


MACRO M1113 30-NOV-83 10:17 SEQ 072 


sALL ZEROES PATTERN, 


PATR2:: CLR R3 CLR PATTERN REGISTER. 
177756 JSR PC, ZROPAT }GO GENERATE IT 
RTS PC ;RETURN, 
}ONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES. 
000401 PATR3:: MOV #401,R3 sINIT PATTERN REGISTER. 
000002 WLKZRO: SUB @2,R4;LET R4 :* R4 - @2 ;DECREMENT WORD COUNT. 
BMI 18 188 IF DONE. 
MOV R3,(R2)> sLOAD DATA. 
ASL R3 SHIFT PATTERN. 
ADC R3 sADD CARRY BACK INTO PATTERN. 
BR WLKZRO 300 IT AGAIN. 
18: RTS PC ;RETURN, 
:ZERO BIT WALKING FROM R TO L IN A FIELD OF 1°S. 
177376 PATR4:: MOV 0177376,R3 sINIT PATTERN REGISTER. 
177750 JSR PC ,WLKZRO :GO GENERATE ;IT. 
RTS PC sRETURN. 
sALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
;COMPLEMENTED . 
125125 PATRS:: MOV 0125125, sINIT PATTERN REGISTER. 
177706 JSR aheeAT 1GO GENERATE IT. 
RTS sRETURN, 
sALTERNATING BYTES OF 000 AND 377. 
177400 PATR6:: MOV #177400,R3 sINIT PATTERN REGISTER. 
000002 18: SUB @2,R4 30€ T WORD COUNT. 
BMI 28 :8R IF DONE. 
MOV R3,CR2)¢ sLOAD DATA. 
BR 18 300 IT AGAIN. 
2%: RTS ;RETURN, 
sRANDOM PATTERN GENERATOR 
000002 PATR7:: SUB €2,R4 ;DECREMENT WORD COUNT 
BMI GIT :8R IF DONE. 
171402 171376 ADO RANS ,RANS 
171372 171372 ADO RANB ,RANS 1GET NEW @. 
171366 MOV RANS, (R2)¢ sSAVE @. 
eR PATR? sCONTINUE. 
GIT: ARTS PC RETURN 
' NO PATTERN GENERATION. 
PATR8:: RTS PC sRETURN, 


THIS SUBROUTINE INITIATES TSOS COMMAND EXECUTION 
a See S FOR TSOS RESPONSE. 





re eee. nee me = ee 


16 


a ee 


' GLOBAL AREAS MACRO M1113 30-NOV-83 10:17 SEQ 0735 
| GLOBAL SUBROUTINES SECTION 
1731 : OUTPUTS: 
1732 ! REGISTERS: R2, RS. 
eb + ’ CALLS: DROPU, MOVMSG, FIRSTU, NEXTU, WSSR. 
1735 012054 012767 177777 171354 EXCUTE:: MOV @-1, TIME1 TT TIMEOUT COUNTER. 
1736 012062 50071%: ; REPEAT 
1737 012062 7 171350 DEC TIME1 iUPOATE TIMEOUT COUNTER. 
1738 012066 005767 171344 TST TIME1 sIF TIMED OUT: 
1739 012072 001011 BNE 500728 
1740 012074 7 000634 JSR PC .MOVMSG sMOVE CURRENT PACKET MSG. 
1741 012100 ERROF 2,NSSRM,STAERM ;REPORT TSOS NOT READY 
012100 104455 TRAP CSEROF 
012102 900002 -WORD 2 
012104 004536 -WORD NSSRM 
012106 006120 -WORD STAERM 
1742 012110 004767 005064 JSR PC .OROPU sOROP THE UNIT. 
ates 012114 BR EXCRTN sRETURN. 
1745 012116 500728: 
1746 012116 032775 000200 BIT #TS.SSR,STSSRCRS) sWAIT UNTIL DEVICE IS READY. 
1747 012124 001 BEQ 500718 
1748 012126 026727 171266 140004 Cup CMDWRD, sIF WE ARE DOING A SET CHAR CMD THEN: 
1749 012134 001022 BNE 50073¢ 
0121 010567 171310 MOV RS .RSSAVE sSAVE CURRENT DEVICE POINTER. 
1751 pipe | 004767 004734 aesres JSR PC .FIRSTU SFIND FIRST UNIT. 
: 
1753 012146 026527 002604 177777 Cup DEVTBLCRS),@END ;WHILE DEVTBLC(RS) NE @END DO 
012 001 BEQ 500758 
1755 012156 004767 000516 JSR PC,.WSSR sWAIT FOR UNIT READY OR TIME OUT, 
1756 012162 004767 004762 JSR PC .NEXTU sFIND NEXT UNIT. 
1758 012166 000767 BR 500748 
1759 012170 500758: 
1760 012170 016705 171256 \ MOV RSSAVE .RS sRESTORE CURRENT hs POINTER. 
1761 012174 016567 170272 MOV MSGPKACRS ) , SCHBK sSET UP ADR OF MSG PKT IN SCH BLOCK. 
1763 012202 500738; 
1764 012202 016503 002544 MOV MSGPKACRS ) RS sADR OF THIS UNIT'S MSG PACKET. 
1765 012206 CLR Re CLR COUNTER. 
1766 012210 500768: 
1767 012210 000020 CéP R2, @MSGCNT sWHILE THERE ARE MORE LOCATIONS: 
1768 012214 001 BEQ 77% 
1769 012216 012723 177777 MOV #-1,CR3)o sINIT THE MSG PACKET WITH ALL 1‘S 
1770 012222 0627 000002 ADD #2 ,R2 sUPDATE COUNTER. 
1772 012226 000770 BR 50076% 
1773 012230 500778: 
1774 012230 105767 167756 TSTB OINT sARE INTERRUPTS DISABLED. 
1775 012234 001023 BNE is sBR IF YES. 
1776 012236 126527 003472 000001 CMPB INTFLGCRS),@1 sIF MORE THAN ONE INTERRUPT HAS OCCURED: 
1777 012244 003412 BLE 50100% 
1778 012246 017567 002524 171200 MOV STSSRCRS), TSSREG sFREEZE THE CURRENT STATUS REG FOR PRINT 
012254 ERROF 15, TOOMM,STAERM sREPORT TOO MANY INTERRUPTS. 
012254 104455 TRAP CSEROF 
012256 000017 -WORD 15 
012260 004727 -WORD TOOMM 
012262 006120 -WORD STAERM 





J6 


, GLOBAL AREAS MACRO M1113 30-NOV-83 10:17 SEQ 074 
: GLOBAL SUBROUTINES SECTION 

1780 012264 004767 004710 JSR PC ,OROPU sOROP THE UNIT 

ares 012270 000434 BR EXCRTN sRETURN - UNIT HAS BEEN DROPPED. 

1783 012272 501008; = om 

1784 012272 005065 003472 CLR INTFLGCRS ) sCLR INTERRUPT FLAG FOR THIS DEV. 

1785S 012276 052767 000200 170024 BIS @IE.C,CMDPKT sSET INT ENABLE BIT. 

1786 012504 105767 171161 18; TSTB ERRREC:IFB ERRREC EQ #0 THEN sIF NOT RETRYING 

1787 012310 001005 501018 

1788 012312 005265 0033576 INC RECCNTCRS) sLET RECCNTCRS) :=* RECCNTCRS) + 

ao 012316 016577 003376 171062 MOV RECCNTCRS), GOATAWT i THEN UPDATE REC COUNT TO WRITE i ON TAPE 

1791 012324 501018: 

1792 012324 012775 002330 002514 MOV @CMDPKT , BTSDBCRS) sLOAD TSOB WITH CMDPKT ADDRESS 

1793 S THIS INITIATES COMMAND EXECUTION. 

1794 012332 032775 000200 002524 BIT #TS.SSR,STSSRCRS) sIF READY OID NOT DROP THEN: 

1795 012340 001410 BEQ 501028 

1796 012342 004767 000366 JSR PC ,MOVMSG sMOVE CURRENT MESSAGE PACKET TO COMMON. 

1797 012346 ERROF 3, TOERM,STAERM ;REPORT NO TSOS RESPONSE. 
012346 104455 TRAP CSEROF 
012350 000003 «WORD 3 
012352 0044535 -WORD TOERM 
012354 006120 -WORD STAERM 

i. 012356 004767 004616 JSR PC ,.DROPU sDOROP THE UNIT 

1800 012362 501028: 

reed 012362 000207 EXCRTN: RTS PC sRETURN. 

1803 8 THIS SUBROUTINE WAITS FOR THE TSOS INERRUPT OR DONE BIT TO SET AND ALLOWS THE 

1804 8 OPERATOR TO TRANSFER CONROL TO THE —— SOR. 

1805 ’ UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 

1806 8 LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 

1807 o INPUTS: 

1808 : OUTPUTS: 

1809 8 REGISTERS: R2, R3. 

std i CALLS: OROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 

1612 012364 012767 177777 171044 GOWAIT:: MOV @-1, TIME1 s INIT td OUT COUNTER. 

1813 012372 50103%: , REPEAT sREPEAT UNTIL INTERRUPT OCCURES: 

1814 012372 BREAK sGO TO THE SUPER TO ALLOW TTY INPUT. 
012372 104422 TRAP CsB8RK 

1615 012374 026727 171020 102010 CMP CMDWRD , ORWD sIF COMMAND WAS REWIND THEN: 

1816 012402 001014 BNE 501048 

1817 012404 DELAY 10. sWAIT EXTRA MSECS EACH LOOP. 
012404 012727 000012 MOV #10. .CPC)+ 
012410 000000 - WORD 
012412 016727 167500 MOV LSOLY,CPC)+ 
012416 000000 -WORD 0 
012420 367 177772 DEC -6(PC) 
012424 001375 BNE 74 
012426 005367 177756 DEC -22(PC) 
012432 001367 BNE --20 

1618 012434 501048; 

1619 012434 026727 170760 105010 CMP CMOWRD , @SFF sIF CMOWRD EQ @SFF OR CMDWRD EQ @SFR THEN 

1620 012442 001404 BEQ 501058 

1621 012444 ps ohh Hf 170750 105410 CMP CMOWRD , @SFR 


1622 012452 
1623 012454 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1824 pape oy 


012727 
000000 
016727 
000000 


MACRO M1113 30-NOV-83 10:17 


000014 
167430 
177772 
177756 


004366 
003472 
000042 


170620 


501068: 


DELAY 


BR 
501078: 


501108: 


501118: 


501128: 


501148; 
501138: 


K6 


SEQ 075 
12. sADD DELAY FOR SPACE TAPE MARK COMMANDS 
MOV #12. ,.CPC)+ 
. WORD 
MOV LSOLY,CPC)+ 
-WORD O 
DEC -6(PC) 
BNE .~- 
DEC -22(PC) 
BNE --20 
+ sIF INTERRUPTS ARE ENABLED. 
INTFLGCRS),R2 ;FETCH INTERRUPT OCCURRED FLAG. 
501108 
@TS.SSR,RS sSET UP A MASK FOR THE DONE BIT. 
STSSRCRS),.R2 sFETCH DONE BIT. 
R3,R2] 
TIME1 sUPDATE TIMEOUT COUNTER 
R2 ;REPEAT UNTIL INTERRUPT OR READY OCCURES. 
501118 
TIME1 
50103% 
TIME1 sIF TIME OUT HAS OCCURRED: 
501128 
RECCNTCRS) .SDATAWT 
BOATAWT 
PC .MOVMSG sMOVE any MSG PACKET TO COMMON AREA. 
4,NOINTM, STAERM ;REPORT NO INTERRUPT. 
TRAP ~~ 
. WORD 
- WORD NOINTH 
“WORD  STAERM 
PC .DROPU 2:OROP THE UNIT. 
@ENDERF ,RS sLET RS := 
PC, CLRERR sCLEAR ALL ERROR FLAGS 
50113¢ 
PC ,MOVMSG T MSG. me i TO COMMON AREA. 
PC ,RECUD sUPOATE THE RECORD 
» CHKERR sCHECK FOR STATUS ERRORS 
WRTYFG sIFB WRIYFG EQ @0 T 
501148 
PC ,.LOG LSS BYTES AND ERRORS. 
@ENDERF ,RS sLET RS :* @ENDERF 
PC,.CLRERR sCLEAR ALL ERROR FLAGS 





a Ee ee 


GLOBAL AREAS 
GLOBAL 


1918 012770 
1919 012770 
1920 012774 
1921 012776 
1922 013002 


1923 
1924 013006 


L6 
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SUBROUTINES SECTION 


003460 


177777 


170522 
000200 


170506 


170530 


170512 


SUBROUTINE TO CLEAR FLAGS. 


gb 
t INPUTS: R3 = LWA TO BE CLEARED + 2. 
3 OUTPUTS: 
8 REGISTERS: Re 
3 CALLS: 
CLRERR:: MOV @BGNFLG ,R2 sLET Re :* @BGNFLG 
50115%: ; REPEAT 
CLR CR2)o sLET CR2)+¢ := 00 
CMP R2,R3 sUNTIL R2 EQ RS 
BNE 501158 
RTS PC 
3 oh * a TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 
8 INPUTS: 
} OUTPUTS: 
8 REGISTERS: 
3 CALLS: 
WSSR:: 
MOV @-1,TIME1 sINIT TIMEOUT COUNTER. 
501168: sREPEAT UNTIL DEV READY OR TIMEOUT: 
BREAK sBREAK TO THE SUPERVISOR. econ 
DEC TIME1 sUPDATE TIMEOUT COUNTER. 
BIT @TS.SSR,@TSSRCRS) ;UNTIL @TS.SSR SETIN STSSRCRS) OR TIME1L EQ 00 
BNE 501178 
TST TIME1 
BNE 50116% 
501178: 
RTS PC sRETURN. 


SUBROUTINE TO MOVE — CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
TO UPDATE THE CURRENT TERMINATION CLASS CODE. 


OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: 
MOVMSG: :MOV STSSRCRS), TSSREG sFREEZE THE STATUS REG CONTENTS 

MOV TSSREG ,R2 sEXTRACT THE TERMINATION CLASS CODE, 

BIC #TSC.TCC ,R2 

MOV R2,CTCC sAND SAVE IT 

ASR Tce 

MOV MSGPKACRS) RS sADR OF THIS DEVICE'S MSG. 
soe0s CLR Re sCLR COUNTER. 

: 

a hy a T sWHILE THERE ARE MORE LOCATIONS: 

MOV CR3)+ ,MSGPKTCR2) sMOVE MSG TO COMMON AREA, 

ADO #2,R2 sUPDATE COUNTER. 

BR 501208 





| GLOBAL AREAS 


| 
| 
| —- 3926 013010 
1928 
1929 
30 
32 
7 1934 
1940 013042 
1942 013052 
1946 
948 013074 
954 013122 
1956 
1958 
1962 013140 
| 
| 
{ 
aha 


1925 013010 
1927 013016 


164 
1969 013166 
1970 013172 
1971 013174 
1972 013200 
1973 
1974 013200 
1975 
1976 013200 
1977 
1978 013200 
1979 


1980 
1961 013200 


016767 
000207 
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GLOBAL SUBROUTINES SECTION 


167346 


000002 
170313 
170332 
170273 
003376 


(170464 


170410 
167316 


102010 


170316 
170306 
170302 


170264 
003502 


SEQ 077 


sIF BRF USED, UPDATE RECORD COUNT. 


sIF PREVIOUS CMD WAS A REV ALSO: 


sCHECK THE ERROR RETRY INDICATOR 
NOT NOW ERROR 


BEEN COUNTED 
BUMPED RECORD CNTR. 


M6 
501218: 
MSGPKT «MS .XSO,EOTFLG sMOVE XSTATO TO EOT FLAG. 
RTS PC 
b SUBROUTINE TO ADJUST THE RECORD COUNT. 
4 INPUTS: 
3 OUTPUTS: 
’ REGISTERS: 
3 CALLS: 
RECUD: : oa RECLOG sIF RECORD HAS NOT BEEN LOGGED: 
DEC RECCNTCRS) sLET RECCNTCRS) := RECCNTCRS) - 61 
BIT @BITO,CTCC sIF TAPE MOVED 
BNE 50123% 
BIT @X2 .OPM,.MSGPKT «MS .xS2 
BEQ $0123% 
INCB RECL’ sSET RECORD LOGGED, 
CMP iIF THIS IS A REWIND CMD: 
BNE 501248 
CLR RECCNTCRS) sCLEAR RECORD COUNT, 
BR 501258 
501248: 
4 @BRF .C, CMOWRD 
BIT #00 .CO, CMDWRD sIF A FORWARD CMD: 
BNE $0127% 
+34 my ° sIF PREV CMD WAS A FWD ALSO: 
INC RECCNTCRS) s INCREMENT RECORD COUNT. 
501308: 
sIF REVERSE CMD: 
BR 501318 
501278: 
BIT @M00 .CO, PCMOWD 
BEQ 501328 
BIT @x0.B0T ,.EOTFLGCRS) 3WHEN NOT AT BOT THEN 
BNE 50i33% 
TST8 
Q 2s -36R, IF 
TSsT8 VF YFLG 
Q 2s 36R, IF WE NO 
TST8 RECLOG sCHECK IF THIS RE 
BNE 10% 38R, IF HAVE 
4 : DEC RECCNTCRS) sDECREMENT RECORD COUNT. 
: 
501338: 
50132: 
50131: 
501268: 








pacer. 
' 
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1962 
19863 013200 501258: 
1984 
1985 013200 50123%: 
aset 013200 016577 003376 170200 MOV RECCNTCRS), @DATAWT sLET GDATAWT := RECCNTCRS) 
1988 013206 501228: 
soos 013206 000207 RTS PC sRETURN. 
1991 ’ THIS IS THE ERROR CHECK SUBROUTINE. AFTER INTERRUPT THIS 
1992 ’ SUBROUTINE IS CALLED TO CHECK THE TSOS STATUS. 
1993 : IF SPECIAL COND IS SET THEN THE TCC HANDLING SUBROUTINE IS ENTERED. 
1994 ry IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A GPCR, 
1995 3 THEN AN ERROR RFC IS REPORTED, 
1996 3 3 
1997 3 S: 
1998 3 REGISTERS: R2, R4. 
1999 3 S: TCCO-TCC7. 
2001 013210 032767 100000 170236 CHKERR:: BIT @TS.SC,TSSREG sIF SPECIAL COND STATUS IS SET THEN: 
2002 013216 001441 501348 
pa coset 170224 000002 CMP Borasee sIF TCC IS NOT 2 THEN: 
2005 013230 105767 170235 TSTs sIF NOT IN ERROR RECOVERY: 
2006 013234 001 50136 
2007 013236 003336 INC SCCNTCRS) 2INC SC COUNTER. 
2009 013242 50136$: 
2010 
2011 013242 50135%;: 
2012 013242 032767 004000 170204 BIT @TS .NXM, TSSREG 3WHEN NON-EXISTANT MEMO 
2013 013250 001004 BNE SO 
2014 013252 032767 040000 170174 BIT @TS.UPE, TSSREG 
2015 013260 001412 BEQ 501406 
2016 013262 501378: 
2017 013262 032767 100000 167076 & @X2 .0PM,.MSGPKT «MS .xS2 sAND TAPE NOT MOVED 


IT 
BNE 501418 

2019 013272 012702 000005 MOV #5 ,R2 sSET TCCS INDEX 
MON 


2021 013276 000402 501426 

2022 013300 

2023 013300 012702 000004 @4,R2 sTAPE MOVED, SET TCC4 INDEX 

2025 013304 501428; 
2026 

q 


501418: 


2027 013304 000402 BR 501438 

2026 013306 501408: 

ae 013306 016702 170136 MOV CTCcC Re sSET DETECTED TCC INDEX 
2031 013312 501438: 

2032 013312 006302 ASL R2 sCURRENT TCC X 2. 

at 0135314 004772 013414 JSR PC ,BTCCRACR2) sGO TO THE TCC HANDLING SUBROUTINE. 
2035 013320 000426 BR 501448 

2036 013322 501348; 

2037 013322 032767 004000 170070 BIT @BRF .C,CMOWRD sIF BRF IS USED IN THIS CMD THEN: 
2038 0133350 001422 BEQ 501458 
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2039 013332 005767 167022 Tst MSGPKT oMS RFC sIF THERE IS AN RFC THEN: 

2040 013336 001417 BEQ 501468 

2041 013340 105767 170151 TSTB 1IFB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 

2042 013344 001 Q 501478 

2043 013346 105767 170144 TsTs VF YFLG 
01 001411 Q 501508 

2045 013354 501478: 

hd T IN RANDOM OR IF CMD IS WTV: 

2047 013354 105767 170141 TSTB IRE sIF RF ERROR REPORTS ARE ALLOWED: 

2048 013360 001 BME 501518 

2049 013362 003356 INC HROCNT(RS) sUPDATE HARD ERROR COUNT 

2050 013366 ERRHRD 13,RFCERM,STAERM sREPORT RFC ERROR 
O1 104436 TRAP CSERHROD 
013370 000015 : 13 
013372 004521 . RF CERM 
013374 006120 .WORD STAERM 

2052 013376 501518: 

2054 013376 501508: 

2056 013376 501468: 

2058 013376 501458: 

2060 013376 501446: 

2061 013376 105767 170065 TSTB RYEAR sIF A READ/WRITE ERROR HAS OCCURRED THEN: 
01 001403 BEQ 501528 

2063 013404 016767 170012 166716 MOV CMDSAV , CMHDPKT sRESTORE CMD PACKET AFTER ERROR RECOV. 

2065 013412 501528: 

2066 013412 000207 RTS PC sRETURN. 

i ADORESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 

2070 013414 013434 TCCRA: YTCCO 

2071 013416 013452 TCC1i 
013420 013470 Tcc2 

2073 013422 O01 TCcCcS 

2074 013424 013616 TCC4 
013426 0142 TCCS 

2076 013430 014330 TCC6 

2077 013432 014472 TCC7 

2079 : ’ SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 

2060 3 CONDITION ERROR. 

2061 4 INPUTS: 

2062 : OUTPUTS: 

2083 ’ REGISTERS: 

2084 CALLS: 

2086 013434 005265 003356 TCCO:: INC HROCNTCRS) sUPDATE HARD ERROR COUNT. 

2087 013440 ERRHRD 5,SCERM,STAERM sREPORT SPECIAL CONDITION ERROR. 
013440 104456 TRAP CSERHRD 
013442 2 5 
013444 004475 .WORD SCERM 
013446 006120 .WORD STAERM 
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2088 013450 000207 RTS PC sRETURN. 

2089 

2091 8 SUBROUTINE TO HANOLE TERMINATION = CODE 1, we te CONDITION. 

2092 ’ THIS TCC INDICATES THAT THE ORIVE HAS UNDERGONE A STATUS CHANGE 

2093 3 SUCH AS GOING OFFLINE OR COMING ONLINE. 

2094 8 INPUTS: 

2095 8 OUTPUTS: 

2096 ’ REGISTERS: R2,R4 

2097 CALLS: OROPU 

2099 013452 TCCi1:: ERROF 6,ATTNM,STAERM sREPORT ATTENTION-UNIT OFF LINE. 
0134S2 104455 TRAP CSEROF 
013454 000006 -WORD 6 
013456 004603 -WORD ATTNM 
013460 006120 -WORD STAERM 

2100 013462 004767 003512 JSR PC .DROPU sOROP THE UNIT. 

s10% 013466 000207 RTS PC sRETURN. 

2103 8 SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 

2104 F A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 

2105 8 TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT, EOT. 

106 8 INPUTS: 
2107 ry OUTPUTS 
108 8 REGISTERS: 

ety CALLS: 

2111 013470 032767 000002 166664 TCC2:: BIT @X0.BOT ,MSGPKT »MS .xSO 

2112 013476 001404 BEQ 501538 

2113 013500 105767 170010 TSTs6 EXPBOT 

2114 013504 001401 BEQ 501538 

2115 sIF AT BOT AND BOT IS EXPECTED: 

os 013506 000433 BR TC2RTN sRETURN-TCC2 CAUSED BY EXPECTED BOT. 

2116 013510 501538; 

2119 013510 032767 170002 166644 BIT @x0.RLS!XO.RLL!IXO. TMK!XO.LET!X0.BOT .MSGPKT oMS.xSO 

Stee sIF @XO.RLS!XO.RLL!IXO. TMKIXO.LET!XO.GO0T SETIN MSGPKT>oMS.xSO THEN 

2122 013516 001427 BEG 5015468 

2123 sIF TCC2 CAUSED BY ANYTHING BUT EOT: 

2124 013520 105767 167771 TST8 RANDOM sIFB RANDOM EQ @O ORB VFYFLG NE @0 THEN 

2125 013524 001403 BEQ 501558 

2126 013526 105767 167764 TST6 VF YFLG 

2127 O13S32 001421 BEQ 501568 

2128 013534 501556: 

2129 T IN RANDOM OR IF CeD IS wWTVv: 

21350 013534 105767 167761 TST IRE sIF arte ERROR REPORTS ARE ALLOWED: 

2131 013540 001016 BNE 501578 

2132 013542 105767 167723 TSTsB ERRREC sIF WE ARE IN ERROR RECOVERY THEN: 

2133 013546 0014035 BEQ 501608 

2134 013550 105267 167714 InNCB UNREC sSET UNRECOVERABLE FLAG FOR LOG. 

2135 sELSE - IF NOT IN ERROR RECOVERY: 

2136 013554 000402 BR 501618 

2137 013556 501608; 

2138 013556 005265 003336 INC SCCNTC(RS) sINCREMENT THE SPEC COND COUNTER. 


2139 
2140 013562 501618: 
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2141 013562 
2142 013566 
3566 


2143 
2144 015576 
2146 013576 
2147 
2148 015576 
2149 
2150 013576 


32 
2187 013634 
2168 013640 
2169 013642 


Ee a ee 


005265 
104456 
000007 


004705 
006120 


104455 
000010 
004622 
006120 
004767 
000207 
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003364 


501578; 
501568: 
501548: 
TC2RTN: 


TCCS:: 


167604 000002 ITCC4:: 
166356 
167631 
166341 


me ne ee 


D7 
SEQ 081 
INC HROCNT(RS) ;UPDATE HARD ERROR COUNT. 
ERRHRD 7, TSAM,STAERM sREPORT TAPE STATUS ALERT. 
TRAP  CSERHRO 
* 
‘WORD | TSAM 
“WORD  STAERM 
RTS PC )RETURN. 
SUBROUTINE TO HANDLE TERMINATION CLASS CODE 3, FUNCTION REJECT. 
THE SPECIFIED FUNCTION WAS NOT INITIATED. 6ITS OF INTEREST ARE 
RMR, OFL, VCK, BOT, ILC, MLE, ILA, AND NBA. 
INPUTS: 
REGISTERS R2,R4 
: 
CALLS: DROPU 
ERRDF 8, FUNRM,STAERM sREPORT FUNCTION REJECT. 
TRAP  CSEROF 
.WORD 8 
oo 
WORD STAERM 
JSR PC,OROPU ;OROP THE UNIT. 
RTS PC sRETURN. 
SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4, RECOVERABLE ERROR. 
TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND ISSUE THE 


2 WITE- - I CAN GE SELECTED: 

THE FIRST VIA BADTSW SWITCH, DOES DETECT BAD SPOTS ON TAPE. 
IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 
OTs LODGED. BR OAL TOE OusioT cn Of 

eet oketan A BAD TAPE OVERFLOW MSG IS PRINTED AND THE 

THE SECOND ALGORITHM ISSUES THE TSOS WRITE RETRY COMMAND 

UP _ TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 

WITH THE NEXT RECORD ON RECOVERY. 

INPUTS: 

OUTPUTS: 

REGISTERS: R2,R4 

CALLS: RTLE, EXCUTE, GOWAIT, DROPU, WRTY 

CMP Art ta sIF CMOLG EQ #2 ANDB BADTSW NE @0 THEN 
TSTB BADTSW 

BEQ 301626 

TSTB eat sIFB ERRREC EQ @0 ANDB ERCVER NE @0 THEN 
TSTB R 
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2190 013646 001404 BEQ 501638 
2191 013650 ERRSOFT 9,RERM,STAERM 
013650 104457 TRAP § CSERSOFT 
013652 000011 .wORD 9 
013654 005017 “WORD RERM 
013656 006120 “WORD  STAERM 
2193 013660 50163¢: 
2194 013660 105767 166327 c sIFB IREC EQ #0 THEN 
2195 013664 001102 501648 
2196 013666 105267 167577 sRETRY FLAG FOR EXCUTE SUBR: DON’ T UPDATE REC CN 
2197 013672 105267 167566 INCB WRTYER REWRITE ERROR FLAG FOR WRTY 
2198 013676 105767 167561 TSTB OWRTYFG «= FIRST RETRY ON THIS RECORD: SUBSEQUENT 
2199 013702 001072 501658 
2200 sRETRIES WITH TCC4 ERRORS BY-PASS THIS SECTION 
1 013 016767 167510 001174 MOV CHDWRO.WTYWROD SAVE WRITE COMMAND PACKET 
2202 013712 016767 166412 001164 MOV CHDPKT . WTYCMD 
013 016767 166412 001162 MOV CMDPKT+CP.CNT,WTYBRF 
2204 013726 105267 167535 INCB = RWERR 3LOG SUBR FLAG: COUNT WRT ERRORS 
2205 013732 105267 167525 INCB -WRTYFG IRETRY IN PROGRESS 
2207 013736 501668: sREPEAT 
2208 013736 16 INC WRTYCTCRS) :COUNT GLOBAL WRITE RETRIES 
013742 7 167512 CLR RETRYC iCLEAR @ OF RETRIES PER RECORD 
2210 013746 105067 167510 CLRB = RPTCNT ICLEAR @ OF REPEATS 
1 013 004767 JSR PC ,WRTY CALL WRITE RETR 
2212 013756 105767 167502 TSTe TYER ;REPEAT RETRIES ON SAME RECORD 
2213 013762 001 BEQ 501678 
2214 013764 027 167522 000050 CMP TPT, @40. 
2215 013772 103761 BLO 501668 
2216 013774 501678: 
2217 ;UNTIL RECOVERED OR 20 BAD SPOTS 
2218 013774 027727 167512 000050 chp TPT, 040. sWHEN 20 BAD SPOTS LOGGED 
2219 014002 10342 BLO 501708 
2220 014004 PRINTS sPRINT BAD TAPE OVERFLOW MSG 
01 012746 015177 MOV @BTMSG2. -( SP) 
014010 012746 000001 MOV #1,-(SP) 
014014 01 MOV SP RO 
014016 104414 TRAP CSPNTB 
01 062706 ADO 64,SP 
2221 014024 004767 001266 JSR PC ,BORERS sERASE BAD RECORD 
2222 014030 003376 DEC RECCNT(RS) 
2223 014034 004767 003140 JSR PC, DROPU sOROP UNIT 
014040 003376 CLR RECCNTCRS) 
2225 014044 012775 350 002514 MOV @RWCPK, BTSDB(RS) sREWIND UNIT 
2227 014052 501708: 
2228 014052 105067 167. CLRB 8s WRT YFG sRETRY COMPLETE FLAG 
01 105267 167447 INCB MISCFG 100 NOT HALT ON THIS CMD FLG 
2230 014062 016767 001 167334 MOV WTYWRD, PCMDWD }RESTORE ORIGINAL WRT CMD AFTER RECOVERY 
2232 014070 501659: 
2234 014070 000402 BR 501718 
2235 014072 501648: 
2236 014072 105267 167372 INCB —- UNREC sLET UNREC :B* UNREC + @1); 
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2238 014076 501718: 

2239 

2240 014076 000454 BR 501728 

2241 014100 501628: 

2242 014100 004767 000404 JSR PC,RTLE :CHECK FOR RETRY LIMIT EXCEEDED. 

2243 014104 026727 167316 000002 CHP CMOLG, @2 sIF READ CMD THEN: 

2244 014112 003411 BLE 501738 

2245 014114 012702 000020 MOV @RRECL ,R2 sR2°READ RETRY COUNT LIMIT / 2 

2246 014120 006202 ASR R2 

2247 014122 026702 167332 CMP RETRYC,R2 sIF RETRY COUNT IS MORE THAN HALF LIMIT: 

2248 014126 002403 BLT 501748 

2249 014130 052767 020000 166172 BIS @0PP .C, CMDPKT :SET OPPOSITE BIT FOR RETRY2. 

2251 014136 501748; 

2252 

2253 014136 501738; 

2254 014136 005767 167316 TST RETRYC sIF THIS IS THE ORIGINAL ERROR THEN: 

2255 014142 001007 BNE 501758 

2256 014144 105767 166037 TSTB = ERCVER 

2257 014150 001404 BEQ 501758 

2258 014152 ERRSOFT 9,RERM,STAERM REPORT RECOVERABLE ERROR 
014152 104457 TRAP  CSERSOFT 
014154 000011 .WORD 9 
014156 005017 “WORD RERM 
014160 006120 “WORD  STAERM 

2259 sPROVIDED OPERATOR HAS ENABLED THE REPORT 

2260 014162 50175$: 

2261 014162 005267 167272 INC RETRYC sUPDATE RETRY COUNT. 

2262 014166 052767 001000 166134 ers @M00.C1,CMDPKT ;SET RETRY BIT IN CMD PACKET. 

2263 014174 105767 166013 TSTB =: TRE sIF ERROR RECOVERY ENABLED: 

2264 014200 001011 BNE 501768 

2265 014202 105267 167263 INCB  ERRREC sSET ERROR RECOVERY FLAG. 

2266 O01 012602 MOV (SP)+,R2 sPOP 2 RTN ADRS FROM STACK. 

2267 014210 0 MOV (SP)+.R2 
014212 004767 175636 JSR PC ,EXCUTE :GO EXECUTE THE RETRY COMMAND. 

2269 014216 000167 176142 IP GOWAIT GO WAIT FOR INTERRUPT + CHECK STATUS. 

2270 SELSE IF ERROR RECOVERY IS NOT ENABLED: 

2271 014222 000402 BR 501778 

2272 014224 501768: 

2275 014224 105267 167240 INCB —«UNREC sSET UNRECOVERABLE ERROR FLAG. 

2275 014230 501778: 

2276 

2277 014230 501728: 

2278 014230 000207 RTS PC sRETURN 

2280 5 SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5S. RECOVERABLE ERROR. 

2281 ' TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 

2282 ' ERROR AND RE-ISSUE THE ORIGINAL COMMAND 

2283 ’ INPUTS: 

2284 1 OUTPUTS: 

2285 ' REGISTERS: R2,R4. 

2286 : CALLS: RTLE, EXCUTE, GOWAIT, DROPU. 

2288 014232 004767 000252 TCCS:: JSR PC,RTLE sCHECK FOR RETRY LIMIT EX 


CEEDED 
2289 014236 005767 167216 TST RETRYC sIF THIS IS THE ORIGINAL ERROR THEN: 
2290 014242 001004 BNE 502008 
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2291 014244 ERRSOFT 10,RERM,STAERM REPORT RECOVERABLE ERROR. 
014244 104457 TRAP  CSERSOFT 
014246 000012 .WORD 10 
014250 005017 ° RERM 
014252 006 . STAERM 

2292 014254 502008: 

2293 014254 005267 167200 INC RETRYC ;UPDATE RETRY COUNTER. 

14260 105767 165727 TSTB ss TREC sIF ERROR RECOVERY IS ENABLED: 

2295 014264 001016 BNE 502018 

2296 014266 105267 167177 INCB :SET ERROR RECOVERY FLAG. 

2297 014272 005265 003376 INC RECCNTC(RS) LUPOATE REC COUNT 

2298 014276 016577 003376 167102 MOV RECCNTCRS ), GDATAW sAND INSERT IT INTO WRT BFR 

2299 014304 012602 MOV (SP )+,R2 sPOP 2 RIN ADRS FROM STACK. 

2300 014306 012602 MOV (SP)+.R2 

2301 014310 004767 175540 JSR PC ,EXCUTE :GO RE-ISSUE THE COMMAND. 

2302 014314 000167 176044 UMP IT 1GO WAIT FOR INTERRUPT + CHECK STATUS. 

2303 sELSE IF ERROR RECOVERY IS NOT ENABLED: 

2304 014320 000402 BR 502028 

2305 014322 502018: 

2506 014322 105267 167142 INCB =: UNREC sSET UNRECOVERABLE ERROR FLAG. 

2308 014326 502028: 

2309 014326 000207 RTS PC sRETURN, 

si 

2312 : TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 

2313 , TAPE POSI HAS BEEN LOST. THE ONLY VALID RECOVER 

2314 , IS TO REWIND AND START OVER AT UNLESS TAPE HAS LABELS OR 

2315 ; NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 

2316 ; COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 

2317 ; DROPPED FROM THE TEST SEQUENCE. 

2318 : INPUTS: 

2319 : OUTPUTS: 

2320 , REGISTERS: R2, R4 

2322 ’ CALLS: RTLE, WSSR, EXCUTE, GOWAIT, DROPU 

2323 014330 036767 163454 166032 TCC6:: BIT X3.0CK,MSGPKT+MS.XS3;IF X3.DCK NOTSETIN MSGPKT+MS.xS3 THEN 

2324 014336 001016 BNE 502038 

2325 sIF THERE IS NO DENSITY CHECK THEN: 

2326 014340 005767 167062 TST CMOLG sIF CMD IS A READ OR WRITE THEN: 

2327 014344 001404 BEQ 502046 

2328 014346 105267 167115 INCB RWERR SET RO/WR ERROR FLAG, 

2529 014352 105267 167112 INCB  -: UNREC sSET UNRECOVERABLE ERROR FLAG. 

2331 014356 502048: 

2332 014356 ERROF 11,URERM,STAERM REPORT UNRECOVERABLE ERROR. 
014356 104455 TRAP CSEROF 
014360 000013 .WORD il 
014362 005041 * WORD RM 
014364 006120 “WORD STAERM 

2333 014366 004767 002606 JSR PC,DROPU :REPORT ERROR + DROP UNIT. 

2334 ,ELSE-IF THERE IS DENSITY CHECK: 

2335 014372 000436 BR 502058 

2336 014374 502038: 

2337 014374 004767 000110 JSR PC,RTLE :CHECK FOR RETRY LIMIT EXCEEDED. 

2338 014400 


005767 167054 TST RETRYC VIF THIS IS THE ORIGINAL ERROR THEN: 
2339 014404 001004 BNE 50206 





rene nmer = coco emo aon = semen -eee-eesemeepene 


ee re re ee re ee re nn | re ne 5 ee 8 | ee ~ 


GLOBAL AREAS MACRO M1113 30-NOV-83 10:17 SEQ 085 
GLOBAL SUBROUTINES SECTION 

2340 014406 ERRSOFT 11,URERM, STAERM sREPORT DENSITY CHECK ERROR 
014406 104457 TRAP CSERSOFT 
014410 0900013 ° 11 
014412 005041 -WORD URERM 

one 014414 006120 -WORD STAERM 

2342 014416 50206%: 

2343 014416 005267 167036 INC RETRYC sUPDATE RETRY COUNT. 

2344 014422 105767 167073 TSTs IRE sIF ERROR RECOVERY IS ENABLED THEN: 

2345 014426 001016 502078 

2346 014430 105267 167035 INCB ERRREC sSET ERROR RECOVERY FLAG, 

2347 014434 012775 002350 002514 MOV @RWCPK , 8BTSDB( RS) STSSUE A REWIND COMMAND, 

2348 014442 004767 1762352 JSR PC ,.WSSR sWAIT FOR SUBSYSTEM READY, 

2349 014446 012602 MOV CSP)+,R2 sPOP 2 RTN ADRS FROM STACK. 

2350 014450 012602 MOV CSP)+,R2 

2351 014452 004767 175376 JSR PC ,EXCUTE sREISSUE THE COMMAND, 

2352 014456 000167 175702 JMP GOWAIT sWAIT FOR INTERRUPT 

2353 sELSE-IF ERR REC DISABLED: 

2354 014462 000402 BR 502108 

2355 014464 502078: 

oe 014464 105267 167000 INCB UNREC sSET UNRECOVERABLE ERROR FLAG. 

2358 014470 502108: 

2359 

2360 014470 502058: 

tat! 014470 000207 RTS PC sRETURN 

2363 r SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 

e364 8 ERROR. THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING 

2365 i COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 

2366 8 REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 

oesr ‘ 3 ag INFORMATION ON THE TYPE OF FATAL ERROR. 

r 3 

2369 ’ OUTPUTS: 

2370 A REGISTERS: R2, R4 

sora 8 CALLS: 

2373 014472 TCC7?:: ERRDF 12,FATSM,STAERM sREPORT FATAL SUBSYSTEM ERROR. 
014472 104455 TRAP CsEROF 
014474 000014 * i2 
014476 004642 .~ WORD FATSM 
014500 006120 -WORD STAERM 

2374 014502 004767 002472 JSR PC ,.DROPU sDROP THE UNIT. 

2375 014506 000207 RIS PC sRETURN. 

gr 

2378 ry SUBROUTINE TO CHECK FOR RETRY LIMIT EXCEEDED. PRINTS ERROR MESSAGE 

2379 8 IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 

2380 8 INPUTS: 

2381 8 OUTPUTS: 

2382 ry REGISTERS: R2, R4, 

tang CALLS: OROPU 

2385 014510 005767 166712 RTLE:: TST CMDLG sIF CMD IS NOT A READ OR WRITE THEN: 

2386 014514 001010 BNE . - $0211 

2387 014516 ERRDOF 11,URERM,STAERM ,REPORT UNRECOVERABLE ERROR. 
014516 104455 TRAP CSERDOF 





GLOBAL 
| GLOBAL 


01 
2388 014526 
2389 014532 
2390 014534 
239 


1 
2392 014536 
2393 014536 
2394 014542 


2412 
2413 014634 


ooo 


000013 
005041 


AREAS MACRO M1113 30-NOV-83 10:17 
SUBROUTINES SECTION 


002376 


166646 
166646 


wn ne ee ee een a ee ne: ee ee ee 


000020 


502118: 


502138: 


502128: 


502158: 


502148: 


RTLRIN: 


WRTY:: 


SEQ 086 
.WORD 11 
‘WORD URERM 
. STAERM 

JSR .OR ;DROP THE UNIT. 

MOV (SP)+,R2 POP RTN ADRS FROM STACK. 

BR RTLATN sAND RETURN, 

INCB = RWERR :SET READ/WRITE ERROR FLAG. 

rae) CMDLG, #2 sIF CMD IS A WRT OR WIM: 

BNE 502128 

cre RETRYC,@WRECL IF RETRY COUNT HAS REACHED LIMIT: 

INCB = UNREC 1SET UNRECOVERABLE FLAG 

ERROF  14,RLEXM,STAERM ;REPORT RETRY LIMIT EXCEEDED. 
TRAP = CSEROF 
.WORD 14 
“WORD RLEXM 
"WORD STAERM 

JSR PC,OROPU ;DROP THE UNIT. 

MOV (SP)+,R2 sPOP 2 RTN ADRS FROM STACK. 

sELSE - CMD IS A READ: 

BR 502148 

owe RETRYC, @RRECL :IF RETRY COUNT HAS REACHED LIMIT: 

INCB  -UNREC sSET UNRECOVERABLE FLAG 

ERRHRD 14,RLEXM,STAERM ;REPORT RECOVERABLE ERROR. 
TRAP  CSERHROD 
.WORD 14 
WORD EMM 
"WORD  STAERM 

MOV (SP)+,R2 :POP 2 RTN ADRS FROM STACK. 

RTS PC sRETURN 

SUBR TO REWRITE A BAD, RECOVERABLE WRITTEN RECORD. 

REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 

IF ALL 4 REPEATS GOOD, RECORD IS RE 

AND A RECOVERABLE WRITE St . 

IF ANY OF 4 REPEATS BAD BAD . LOG 

BAD SPOT, RETRY AGAIN. RETRY 4 TIMES. UP TO 4 REPEATS EACH. 

IF RECORD NOT GOOD IES, ERASE IT, EXIT WITH 


AFTER 4 RETR 
ERROR FLAG WRTYER SET, PRINTING RETRY FAILED 
TIMES MAX, IE 20 BAD 


THIS ALL SCHEME IS REENTERED 20 
SPOTS MAX ARE ALLOWED. 


INPUTS: 
REGISTERS: R3,R4 

LS: BORERS, REWRT 
sBEGIN RETRY sREPEAT 





a 


GLOBAL AREAS 
GLOBAL 


2434 014636 
2435 
e& 


2481 
2482 015046 


101005 
016703 
060304 


J7 


MACRO M1113 30-NOV-83 10:17 
SUBROUTINES SECTION 


165273 


002616 166524 


502178; 


502218; 


502228: 
502208: 


502238: 


502258: 


502278: 
502268: 


502248; 


502168; 


SEQ 087 
1BEGIN REPEAT ;REPEAT 
JSR PC ,BORERS :BACKSPACE/ERASE ONE RECORD 
CLRB  WATYER ICLEAR WRITE RETRY ERROR 
JSR PC ,REWRT ;REWRITE RECORD ON SAME SPOT 
RPTCNT ;COUNT REPEATS 
RPTCNT, @4 ILIMIT: 4 REPEATS OR RECOVERED 
BEQ $0222 
TSTB  WRTYER 
502218 
sEND REPEAT 
RETRYC ;COUNT RETRIES 
TSTB = WRTYER 
502238 , 
BR 302168 sEXIT RETRY LOOP IF RECOVERED 
TSTB :IFB ERCVER NE @0 THEN 
BEQ 502258 
PRINTS @BTMSG1,RETRYC, <B,RPTCNT> sPRINT SUSPECTED BAD SPOT 5) 
BIS8 RPTCNT.(SP) 
MOV RETRYC. -(SP) 
MOV @8TMSG1, -(SP) 
MOV #3, -C 
MOV “RO 
TRAP  CSPNTB 
ADD #10,SP 
cw RETRYC, #1 :ON FIRST RETRY, LOGG BAD SPOT 
MOV BTADOR(RS),BTPT 18TPT IS BOTH THE BAD SPOT COUNTER 
nov SBTPT RA 3AND THE LOGGING INDEX 
MOV R4,GBTPT 
CMP 040. :IF R4 LOS @40. THEN 
BHI 502 
MOV BTPT.RS sSTORE FIRST 20 BAD SPOTS 
ADD R3,R4 sLET R4 3:2 RG o 8 
MOV RECCNT(RS),(R4) ;LET (R4) :© RECCNTCRS) , 
INCB = ERSFLG ERASE FLAG TO ERASE BAD RECORD 
CLRB 0s RWERR FLAG ON FAILING RET 
CLRB = RPTCNT CLEAR REPEAT COUNT FOR NEXT RETRY 
CMP RETRYC, 04 :LIMIT: 4 RETRIES 
BNE 502178 
sEND RETRY 





GLOBAL 


AREAS 
GLOBAL SUBROUTINES SECTION 


5102 


ee a er ee oe sere - ee ee ee w 


105767 166412 
001413 
105767 165127 


012746 015247 
012 000001 


062706 000004 


7 


MACRO M1113 30-NOV-83 10:17 SEQ 088 
TST6 WRTYER ;,IFB WRTYER NE @0 THEN 
BEQ 50230% 
TSTB ERCVER sIFB ERCVER NE #0 THEN 
BEQ 50231 
PRINTB @#BTMSG3 sPRINT RETRY FAILED 
MOV #6 TMSG3, -C SP) 
MOV @1,-CSP) 
MOV SP ,RO 
TRAP CsPNTB 
ADD 04,SP 
502318: 
502308: 
000207 RTS PC 
000000 WTYCMD: .WORD O sSTORAGE FOR WRITE CMD WHILE RETRYING 
000000 WTYWRO: .WORD O sSTORAGE FOR WRITE CMD WORD WHILE RETRYING 
000000 WTYBRF: .WORD 0 sSTORAGE FOR WRITE BPCR WHILE RETRYING 
045 101 
125 
105 103 
040 102 
104 040 
120 117 
040 101 
124 105 
040 045 
061 045 
040 122 
124 122 
054 040 
104 061 
101 040 
105 120 
101 124 
116 000 
045 116 
101 102 
104 040 
101 120 
040 117 
105 122 
114 117 
072 040 
110 101 
107 105 
124 101 
041 
116 045 
045 101 
105 
131 
101 111 
105 104 


BITMSG1: .ASCIZ /sSASUSPECT BAD SPOT AFTER #D1SA RETRY, SD1SA REPEATSN/ 


BIMSG2: .ASCIZ /sSNSABAD TAPE OVERFLOW: CHANGE TAPE !stNsN/ 


BIMSGS: .ASCIZ /#ARETRY FAILED ON BAD SPOT...ERASED!sN/ 





MACRO M1115 30-NOV-83 10:17 SEQ 089 


' GLOBAL AREAS 
, GLOBAL SUBROUTINES SECTION 
01 117 116 040 
015271 102 101 104 
015274 040 123 120 
015277 117 124 056 
015302 056 056 105 
015305 122 101 123 
015310 105 104 041 
015313 045 116 000 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 015316 016767 166076 166100 
2511 01: 012767 104410 1 
2512 0 016767 1 164770 
2513 015340 04276 164762 
2514 015346 016767 164756 166046 
2515 015354 012767 1 164750 
2516 015362 
2517 0 004767 173472 
2518 0 004767 174456 
2519 015376 004767 174762 
i) 0047 00207, 
2521 arate ood 34 16611 
2523 015414 016767 166002 
01 127 00411 165770 
2525 0154350 016767 165764 164672 
2526 015436 016767 1 165756 
7 015444 004767 175414 
2528 015450 004767 17. 
2529 015454 004767 174704 
015460 004767 002014 
2531 015464 105067 166035 
2533 015470 
2534 015470 000207 
2535 
2536 
2537 
0154 016767 165722 165724 
2°99 YiSSOO 016767 7 165712 
25%0 015506 016767 177372 16461 
2541 015514 016767 10 165700 
01 01676 64602 
2543 015550 016767 177354 164600 
2544 015536 012767 165662 
° 004767 173314 
015550 004767 174 
2547 015554 004767 17 
2548 015560 004767 001714 
2549 015564 


-EVEN 


SUBR TO BACSPACE ONE RECORD 
IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 
: ERSFLG 1 = DO ERASE 


CALLS: EXCUTE, GOWAIT, CKHAE 
CMOWRD.PCMDWD ;SET COMMAND a SPACE o% 
@SRR, CMOWRD sLET CMOWRD : 
CMOWRD.CMDOPKT  ;LET CMDPKT ‘° CMOWRD cLR. BY @BRF.C 3 


MOV CMOPK Ne sLET weer © :* CMOPKT 
MOV #1, CMDPKT «CP. ADL 


T CMDPKT+CP. ADL. :* #1 ry 
CLR CMOLG ,;LET CMDLG ’ 
JSR PC. er 
JSR PC ,EXCUTE ry 
JSR PC .GOWAIT 3 
JSR PC , CKHAE r] 
TST ERSFLG sWHEN ERASE FLAG IS SET, DO ERASE 
BEQ $0232 
MoV CMOWRD. sLET PCMDWD := CMDWRD ; 
MOV ERS , CHOWRD sLET CMOWRD := @ERS  ; 
MOV CMDWRD . CHDPKT sLET CMOPKT := CMOWRD ; 
MOV CMDPKT . CHDSAV sLET CMDSAV :©* CMDPKT ; 
JSR PC, CMDAC : 
JSR eEXCUTE 
JSR PC .GOWAIT 
JSR PC, CKHAE 
CLRB ERSFLG sLET ERSFLG :B= 80 
RTS PC 


SUBR TO REWRITE A BADLY WRITTEN RECORD 

MOV CMOWRD.PCMOWD ;RESTORE WRITE COMMAND PACKET 

MOV sLET CMOWRD WRO 

MOV WTYCMD, .CMDPKT ;LET CMOPKT := WTYCMD : 

MOV CMOPKT, Vv  3LET CMDSAV :=* CMDPKT 

MOV eS a eel by Se sLET CMDOPKT+CP. ADL :* DATAWT 


YORF , CMDPKT ¢CP .CNT sLET CMOPKT+CP.CNT :© WTYBRF 
@2,CMOLG sLET CMDLG := #2 : 


MOV 

JSR PC 

JSR PC ,EXCUTE sRE-WRITE RECORD 
JSR a 

J 

RTS 





M7 


GLOBAL AREAS MACRO M1113 30-NOV-83 10:17 
GLOBAL 


re ee rr 


SEQ 090 
SUBROUTINES SECTION 
2550 
2551 ' SUBROUTINE TO LOG BYTES READ/WRITTEN. 
2552 ' ALSO UPDATES READ/WRITE ERROR COUNTERS. 
' INPUTS: 
: OUTPUTS: 
2555 , REGISTERS: R2, R3, R4. 
case 4 CALLS: 
2558 015566 105767 165674 LOG:: TSTB ERL sIF DATA AND ERRORS HAVE NOT BEEN LOGGED THEN: 
2559 015572 001126 BNE 502338 
2560 015574 105267 165666 INCB ERLOG sSET LOG DONE FLAG. 
2561 015600 016704 165622 MOV CHDLG,.R4 1GET CURRENT CMD LOGGING CODE. 
2562 015604 0057 TST R4 sIF THERE IS A CODE THEN: 
015606 00 . BEQ 502348 
2564 015610 162704 000002 SUB 22, sADJUST THE CODE FOR TABLE INDEX. 
2565 015614 010502 MOV RS. sR2 = ADR OF BYTE COUNT LSW. 
2566 015616 016052 ADD BINCCR4),R2 
2567 015622 062 ADD @CNTBGN 
01 066712 1 ke ADD BRFCNT , CR2) ;ADO BRF TO LSW. 
2569 015632 026767 164522 165556 CMP MSGPKT+MS.RFC,BRFCNT ;IF THE RFC IS LOWER OR THE SAME AS BRF THEN 
015640 101002 BHI 502358 
2371 015642 166712 164512 SUB MSGPKT MS .RFC,(R2) ;SUBTRACT RFC FROM EXPECTED BRF. 
2573 015646 502358: 
2574 015646 01 MOV R2,R3 :R3 = ADR OF 2ND WORD. 
2575 015650 062703 000010 ADD #10,R3 
2577 015654 S0236%: ;WHILE (R2) GT #999. DO 
2578 015654 021227 001747 CMP CR2), 0999. 
0 003404 BLE 50237 
0 162712 001750 SUB #1000. .(R2) ;UPDATE BYTE COUNT 
2581 015666 005213 INC CR3) 1LET CR3) :* (RB) © OL :2ND WORD. 
2583 015670 000771 BR 502368 
2584 015672 502378: 
2585 015672 010302 MOV R3,R2 sLET R2 := RB + 010 sR2 = ADR OF 3RD WORD. 
01 062702 000010 ADD 10, 
2587 015700 50240%:  ;WHILE (R3) GT 0999. DO 
015700 021327 001747 chp (R3), 0999. 
2589 015704 003404 BLE 502418 
2590 015706 162713 001750 SUB #1000. ,(R3) }UPDATE BYTE COUNT 
2591 015712 0052 INC CR2) sLET (R2) :* (R2) © OL 33RD WORD. 
2593 015714 000771 BR 502408 
2594 015716 502418: 
2595 015716 010203 MOV R2,R3 1LET RB :© R2 + 10 3R3 = ADR OF 4TH WORD. 
0 062703 000010 ADD #10,R 
2597 015724 502428:  ,WHILE (R2) GT #999. DO 
015724 021227 001747 cMp cR2) . 
2599 015730 003404 BLE 502438 
2600 015732 162712 001750 SUB #1000. ,(R2) ;UPDATE BYTE COUNT 
2601 015736 005213 INC CR3) sLET CR3) :* (R3) © @1 14TH WORD. 
2603 015740 000771 BR 502428 
2604 015742 502438: 
2605 015742 105767 165521 TSTB = RWERR sIF R/W ERROR, UPDATE ERROR COUNT. 
2606 015746 001 BEQ 502448 








\ 


GLOBAL AREAS MACRO M1113 30-NOV-63 10:17 SEQ 091 
GLOBAL SUBROUTINES SECTION 


! 
i 
2607 015750 010502 MOV RS,R2 sR2 = ADR OF COUNTER. 
2608 015752 066402 016060 ADD EINC(R4),R2 
2609 015756 062702 002766 ADO @WRREC ,R2 
2610 015762 105767 165502 TSTB _- UNREC 1IS THE ERROR UNRECOVERABLE? 
2611 015766 001404 BEQ 502456 
2612 015770 062702 000010 ADO #10,R2 sYES, POINT TO NEXT COUNTER. 
2613 015774 005212 INC cR2) 1UPDATE THE ERROR COUNTER 
asia sELSE - IF ERROR IS RECOVERABLE: 
2615 015776 000424 BR 502468 
2616 016000 502458: 
2617 016000 005212 INC cR2) sUPDATE THE ERROR COUNTER 
2618 016002 105767 164205 Tst@ IREC IF ERROR RECOVERY IS ENABLED: 
2619 016006 001020 BNE 50247¢ 
2620 016010 105767 165506 TSTB DROPED sIF UNIT HAS NOT BEEN DROPPED: 
2621 016014 001015 BNE 502508 
2622 016016 105767 164165 TSTB - ERCVER 
2623 016022 001412 BEQ 502508 
16024 PRINTS @NURTY1,RETRYC :PRINT @ OF RETRIES TO RECOVER 
016024 016746 165430 MOV RETRYC, -(SP) 
016030 012746 005422 HOV @NURTY1, -(SP) 
016034 012746 000002 MOV #2, -(SP) 
016040 010600 MOV SP .RO 
016042 104414 TRAP  CSPNTB 
016044 062706 000006 ADO #6.SP 
sPROVIDED PRINT HAS BEEN ENABLED 
2626 016050 502508: 
2628 016050 502478: 
2631 016050 502468: 
2633 016050 502448: 
2635 016050 502348: 
2637 016050 50233$: 
2638 016050 000207 RTS = PC 
: INDEXES TO BYTE COUNTERS. 
2641 016052 000000 BINC: 0 WRITE. 
016054 000040 1READ REV. 
2643 016056 000100 iREAD 
: INDEXES TO READ/WRITE ERROR COUNTERS. 
2645 016060 000000 EINC: ‘ ; 
2646 016062 000020 20 sREAD REV. 
2647 016064 000040 40 sREAD FWD. 
2649 : IF A WRITE/VERIFY COMMAND IS ISSUED. CONTROL IS 7 
2650 5 TRANSFERRED TO THIS SUBROUTINE TO READ RE CHECK DATA, 
2651 ' READ FORWARD. CHECK DATA. THEN CONTINUE TO NEXT COMMAND. 
2652 ’ INPUTS: 
2653 ’ OUTPUTS: 
2654 ' REGISTERS: 
2655 ' CALLS: VFEXC. 
| 2656 


2657 016066 105767 165424 VF YDAT: : TSTB VF YFLG sIF DATA IS TO BE VERIFIED: 





ee 


GLOBAL AREAS 
GLOBAL 


2667 
2668 016150 


2705 
2706 016306 
2707 016310 


2708 
2709 016314 
2710 
2711 016314 
2712 016316 
2713 016316 
2714 


MACRO M1113 30-NOV-835 
SUBROUTINES SECTION 


165242 


177777 
165140 
003502 
003502 


10:17 


502518: 


VFEXC:: 


5025358: 


502618: 


SEQ 092 
BEQ 502516 
MOV CHOWRD . PCMOWD sSAVE THE PREVIOUS COMMAND WORD. 
MOV @ROR, H IS READ REV. 
MOV @4 ,CMOLG sSET UP CHD LOGGING INDEX. 
JSR PC, VFEXC ’ ALL THE RECORDS REV. 
MOV ePCMOWD SAVE THE PREVIOUS COMMAND . 
MOV @ROF , CHDWRO sCOMMAND IS READ FiO. 
MOV 6 , CMOLG sSET UP CMD LOGGING INDEX. 
JSR PC, VFEXC 1GO READ ALL RECORDS FuD. 
RTS PC sRETURN. 


SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 
: 


Ss 
REGISTERS: R2 
CALLS: CMDAC, FIRSTU, VF ISU, NEXTU, CKHAE . 
MOV CMDURD . CHDPKT sCOMMAND PACKET = READ REV OR FD. 
BIC @BRF .C,.CMDPKT 
Md SWBFLG sIF BYTES ARE TO BE SWAPPED: 


BE 302528 
BIS @SuB .C .CHDPKT sSET SWAB BIT IN CMD PACKET. 


MOV CMDPKT , CHDSAV elfen COMMAND PACKET 1ST WORD. 
MOV DATARD ,.CMOPKT «CP. ADL s SAVE FER START ADORESS. 
CLR NCNT sCLEAR NUMBER OF OPERATIONS. 
— NCNT LT NCNT1 DO sWHILE THERE ARE RECORDS REMAINING: 
NCNT ,NCNT1 

BGE 302548 
JSR PC .CHDAC sSTORE CMD ASCII IN ERROR MSG. 
JSR PC, FIRSTU sSET UP FOR FIRST UNIT. 

sWHILE OEVTBLC(RS) NE @END 00 iWHILE THERE ARE DEVICES REMAINING: 
DEVTBLCRS). @END 
ort @M00 . CO. CHOWRD sIF CMD IS REVERSE THEN: 


sIf NOT AT BOT 
s8UT IF AT EOT 


oT @x0.B0T ,EOTFLGCRS ) 
BIT @x0.EOT ,EOTFLGCRS) 
BE 302618 


q 
TSTB ALLEOT sAND ALL OTHERS AT EOT 
a S262 6 
PC. VF ISU s THEN READ VERIFY 
sIF NOT ALL AT EOT, FREEZE UNIT(S) 
sIF NOT AT BOT AND 
BR 50263¢ 


JSR PC, VF ISU 


sNOT AT EOT, READ VFY 





GLOBAL ARE. 


2715 016322 
27 


2738 

2739 016374 
2740 016376 
eres 016376 


2770 
2771 016464 


MACRO M1113 30-NOV-83 10:17 


004767 
005267 
016767 
000712 
000207 


016702 
062702 
020267 
001403 
012742 


000772 


004767 
105767 


001002 
004767 
105767 
001006 
032765 
001092 
004767 


AS 
GLOBAL SUBROUTINES SECTION 


000001 
000001 


000574 


001116 
165024 
165026 


165004 
000010 
164774 
177777 


173424 
165066 


173722 


165054 
000002 
000002 


Ce ee ee ee en cme ee 


SEQ 093 
502638: 
502608: 
502648 sELSE IF CMD IS NOT REVERSE: 
502578: 
003502 BIT @x0.EOT .EOTFLGCRS) 
BEQ 502658 
165056 BIT @CMD ..CO,CMDWRD 
BNE 50266 
502658: 
3sIF NOT AT EOT OR NOT A MOTION CMD THEN: 
JSR PC, VFISU sISSUE CMD, CHECK STATUS AND DATA. 
502668: 
502648: 
JSR PC .NEXTU 3GO FIND THE NEXT UNIT. 
BR 50255% 
502568: 
JSR PC , CKHAE sCHECK FOR HALT AFTER EACH CMD. 
INC NCNT sUPOATE THE RECORD COUNT. 
165030 MOV e sSAVE PREVIOUS COMMAND WORD. 
8R 502538 
502548: 
RTS PC sRETURN. 
8 SUBROUTINE TO ISSUE COMMAND, AWAIT INTERRUPT, 
5 a CHECK DATA. 
3 3 
3 
: REGISTERS: R2 
a CALLS: EXCUTE, GOWAIT. CKDATA. 
VFISU:: pied or sINIT READ BUFFER POINTER. 
502678: sWHILE R2 NE DATARD DO sUNTIL 8 BYTES HAVE BEEN SET, 
CmP R2,.DATARD 
BEQ $027 
MOV @-1,-CR2) sINIT READ BUFFER. 
BR 502676 
$02708: 
JSR PC ,EXCUTE 3GO EXECUTE THE COMMAND. 
TST6 OROPED sIF UNIT ‘HAS NOT BEEN DROPPED THEN: 
BNE 502718 
JSR PC .GOWAIT 3GO WAIT FOR DONE BIT. 
502718: 
— a sIF UNIT HAS NOT BEEN DROPPED THEN: 
003502 BIT @x0.BOT ,EOTFLGC(RS) sWHEN NOT REVERSED INTO BOT, THEN 
BNE 50273¢ 
JSR PC ,.CKDATA 3GO VERIFY DATA. 


502738: 





i ce 


GLOBAL AREAS 
| GLOBAL SUBROUTINES 


2772 
2773 016464 
2774 016464 
2775 


2795 016552 


Be ee wenn ee ae ae + ee ee ee 
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000207 


016703 
166703 


005703 
001015 


104456 
1 


SECTION 


164724 
163662 


163560 


502726: 
RTS PC 
; AND PRINT MESSAGE ON MISC 
' INPUTS: 
' OUTPUTS: 
: REGISTERS: R2, RB, RA. 
' CALLS: GCHDA 
CKDATA: :MOV BRFCNT RS 
SUB MSGPKT +MS.RFC,R3 
TST R3 
BNE 502748 
ERRHRD 17, WTVERM,DTAERM 
PRINTB @DTAER4 1 COMPARE 
BR 502758 
502748: 
cép R3,BRFCNT 
BLOS  S02768 
ERRHRD 17,WTVERM, OTAERM 
PRINTS @OTAERS, CHDPKT+CP.CNT 
BR 502778 
502768: al * 
DEC CKOCNT 
CLR CKOFF 
CLR R2 
MOV DATANT RS 
MoV DATARD.R4 
Tste 43=«-: TiSWB 
BEQ 503008 
SWAB s« CRB) 


503008: 


SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 
ERROR OMPARE . 


sCOMPUTE REC LENGTH READ 
sWHEN NO DATA RECEIVED 
sPRINT ERROR AND EXIT 


ROUTINE 


sWHEN REC READ IS LONGER 
sTHAN EXPECTED, PRINT 


sAND EXIT ROUTINE 


sSAVE VERIFICATION LENGTH - 1. 


oe 


CSERHROD 

17 

WTVERM 

OTAERM 
@OTAER4 , -( SP) 
#1 ° -¢ SP) 


CsPNTB 
04,SP 


sCLEAR @ OF BYTES IN ERROR COUNTER. 


nok oy 2 ADORESS. 
WHEN RUNNING TEST1-SUB 12, 


sSWAP FIRST WORD OF WRT BFR 
s WHICH CONTAINS THE RECORD COUNT 





GLOBAL AREAS MACRO M1113 30-NOV-83 10:17 


GLOBAL SUBROUTINES SECTION 


406 
2616 016652 032767 000001 000216 


2634 016724 506 
2635 016730 042767 177400 164500 


2636 0167 6 
2637 016742 042767 177400 164470 
2638 016750 026727 000124 000015 


2642 
2643 017016 105723 
2644 01 105724 


005267 000040 
2649 ps phar 005767 000036 


503018: 


503048: 
503038; 
503028: 


SEQ 095 
sREPEAT sREPEAT UNTIL ALL DATA IS COMPARED: 
CMP R2,CKDCNT sIF THIS IS THE LAST BYTE THEN: 
BNE 503028 
TSTB SWEFLG sIF BYTE SWAPPING IS ENABLED THEN: 
BEQ 503038 
BIT #BITOO,CKOCNT sIF RECORD LENGTH IS OOD THEN: 
BNE 503048 
TSTB CR3)o sLAST BYTE WILL BE IN 
TSTB CR4)o sTHE UPPER BYTE. 
CR3),CR4) sARE THEY EQUAL. 
36 s6R IF SO. 
TST CKOFF 2 ST TIME THRU? 
es s6R IF NOT. 
INC VF YCNTCRS) SINC THE VERIFY ERROR COUNTER. 
INC HROCNTCRS ) sINC THE HARD ERROR COUNT. 
ERRHRD 17, WTVERM,OTAERM sREPORT WRITE/VERIFY ERROR. 
TRAP CSERHRD 
-WORD 17 
-WORD WTVERM 
-WORD OTAERM 
INC a he CKOFF := CKDOFF + @1 INCREMENT @ OF BYTES IN ERROR. 
MOVB SAVE WAS DATA FOR TYPOUT. 


CR4), TIMEL 
BIC #177400, TIME1 
R3),.T iSAVE SHOULD BE DATA FOR TYPOUT. 


MOvB ‘ 
BIC #177400, TIME2 sCLEAR . 
Ad a Ad ga. sIF ERROR BYTE COUNT IS LESS THAN 11: 
PRINTX @OTAER2.R2,<B,TIMEL>,<B,TIME2>;PRINT ACTUAL €& —— ner i a 
8 TIME2 CSP) 
-(SP) 


TST8 CR3)0 sUPDATE WRITE BUFFER ADORESS. 
TST8 CR4)6 ’ READ ee ll ADORESS. 
TST6 CR2)¢ sUPOATE BYTE COUNTER 

R2.CKDCNT sEND OF DATA COMPARE REPEAT LOOP. 
BLE 503018 
INC sCKDCNT EQUALS RECORD LENGTH. 
pi 34 i dl sIF COMPARE ERROR HAS OCCURED THEN: 
PRINTB @OTAERS,CKDFF ,CKDCNT sPRINT @ OF BYTES IN ERROR. 

MOV CKDCNT , -€SP) 


F8 


; GLOBAL AREAS MACRO M1113 30-NOV-83 10:17 SEQ 096 
GLOBAL SUBROUTINES SECTION 

017050 016746 000024 MOV CKOFF , -CSP) 
017054 012746 005275 : MOV @OTAERS, -( SP) 
017060 012746 000003 MOV @3,-CSP) 
017064 010600 MOV SP RO 
017066 104414 TRAP CésPNTB 
017070 062706 000010 ADD #10,SP 

2853 017074 503068: 

2855 017074 502778: 

2856 

2857 017074 502758: 

aos 017074 000207 RTS PC sOTHERWISE, RETURN. 

2860 017076 000000 CKDCNT: .WORD O 3@ OF BYTES TO BE VERIFIED -1. 

2861 017100 000000 CKOFF: .WORD O 3@ OF BYTES IN ERROR COUNTER. 

2863 3 SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 

2864 3 INPUTS: 

2865 3 OUTPUTS: 

2866 ry REGISTERS: 

2867 8 CALLS: 

2869 017102 105067 164414 FIRSTU:: CLRB $OROPED sCLR UNIT DROPPED FLAG 

2870 017106 005005 CLR RS sCLR DEVICE POINTER. 

2871 017110 026527 002604 177774 503078: CMP OEVTBLCRS),. @NINUSE sWHILE DEVICES ARE NOT IN USE: 

2672 017116 001003 BNE 503108 

2873 017120 000002 ADD @2,R5 sLET RS := RS + 02 sPOINT TO NEXT DEVICE. 

2874 017124 000771 BR 503078 

2875 017126 503108: 

2876 017126 026527 002604 177777 CMP DEVTBLCRS). @END sIF ALL UNITS HAVE BEEN DROPPED THEN: 

2877 017134 001001 BNE 503118 

2878 017136 DOCLN 300 CLEAN CODE AND TERMINATE PASS. 

2879 017136 104444 TRAP CSOCLN 

2880 017140 503118: 

2681 017140 016567 002604 162726 MOV DEVTBLCRS),.LSLUN 3sSET UNIT @ IN “HEADER” FOR ERROR REPORT 

2882 017146 000207 RTS PC sRETURN WITH 1ST DEVICE IN RS. 

2884 

2885 3 SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 

2886 r INPUTS: 

2687 3 OUTPUTS: 

2888 3 REGISTERS: 

— ’ CALLS: 

2691 017150 105067 164346 NEXTU:: CLRB OROPED :CLR UNIT DROPPED FLAG 

2892 sREPEAT sREPEAT UNTIL THE NEXT DEVICE IS FOUND. 

2893 017154 503128; 

2894 017154 062705 000002 ADO @2,.R5 sUPDATE DEVICE TABLE POINTER. 

2695 017160 026527 002604 177774 CMP DEVTBLCRS), @NINUSE sUNTIL DEVTBLCRS) NE @NINUSE 

2696 017166 001772 BEQ 503128 

2897 017170 016567 002604 162676 MOV DEVTBLCRS),.LSLUN sSET UNIT @ IN “HEADER” FOR ERROR REPORT 

28698 017176 000207 RTS PC sRETURN. 

2899 

2900 


2901 ‘ SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 





GLOBAL AREAS 


_ GLOBAL 


2902 
2903 
2904 
2905 
2906 
2907 017200 
2908 017204 
2909 017210 
2910 017214 
2911 017220 
2912 017222 
2913 017222 
2914 017226 


2915 017230 
2916 017234 
2917 


2926 

2927 017276 

2928 017300 

2929 017300 

2930 

2931 017304 
32 017304 


2935 017316 
2936 
2937 017322 
2938 017322 
017322 
2939 017324 
2940 017330 
2941 017332 
2942 
2943 017336 
2944 017336 
2945 017344 
2946 017350 
, 017350 


2948 
2949 017352 
2950 


me me i n= a i a re a ee eee 
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016767 
016700 


104451 


026527 
001410 
105767 
001005 


SUBROUTINES SECTION 


t INPUTS: 
t OUTPUTS: 
’ REGISTERS: 
3 CALLS: 
003366 OROPU:: INC FTLCNTCRS) 
163160 MOV MSGPKT MS .XS3,R4 
000377 BIC 0377 ,R4 
MOV MSGPKACRS),R3 
CLR Re 8 
50313%: ; WHILE R2 NE @MSGCN 
000020 CMP R2, 
BEQ 503148 
177777 MOV @-1,CR3)¢ 
ADD @2,R2 
BR 50313% 
503148: 

340 002514 MOV @GSCPK , 8TSDBCRS) 
173424 JSR PC .WSSR 
173454 JSR e 
157400 CMP R4, @X3. RNY 

BNE 503158 
ERROF 16,RNYM,STAERM 
BR 503168 
503158: 
000106 JSR PC ,.PRXST 
503168: 
164155 TSTs RECLOG 
BEQ 503178 
164204 INCB OROPED 
176244 JSR PC,.LOG 
503178: 
DORPT 
003326 DROPUA: rst am 0 a 
003326 DEC PASCNTC(RS) 
503208; 
164172 000044 MOV TSNP ,OROPN 
164164 MOV TSNP ,RO 
RO 
002604 177774 DEVTBLCRS), @NINUSE 
BEQ 50321% 
162625 TsTe IREC 
BNE 503228 


em ee ne ee ee 


SEQ 097 


MOVMSG, PRXST, LOG 





sLET R2 :* R2 + 


sINCREMENT THE FATAL ERROR C 


OUNT. 
iGET UDIAG ERROR CODE FROM XSTATS. 
yg THIS UNIT'S MSG PACKET. 


sCLR_ COUNTER. 
sWHILE THERE ARE "MORE LOCATIONS: 


sINIT THE MSG PACKET WITH ALL 1'S 

#2 sUPDATE COUNTER. 
sINITIATE A GET STATUS COMMAND. 
sWAIT A WHILE FOR SSR1 


sMOVE MSG PACKET TO CORMON AREA. 
sIF WE HAVE A CAPSTAN RUNAWAY THEN: 


sREPORT CAPSTAN RUNAWAY WITH TACH CNT. 
T CSEROF 


sELSE-IF NOT A RUNNAWAY: 

sPRINT EXTENDED STATUS REGISTERS. 
sIF THE RECORD HAS BEEN LOGGED THEN: 
sSET UNIT DROPPED FLAG. 

sLOG DATA BYTES + RO/WR ERRORS. 
sPRINT PERFORMANCE REPORT 


TRAP 
sIF PASCNTCRS) NE @0 THEN 


sLET PASCNTCRS) := PASCNTCRS) - #1 


CsORPT 


sSAVE @ OF UNIT TO BE DROPPED. 
sRO*LOGICAL DEVICE NUMBER 
sOROP THE UNIT 


TRAP Cs000U 
sEXEC BGNDU-ENDDU CODE IF IDU = 0 


sIF UNIT NOT DROPPED 


sIF RECOVERY IS ENABLED THEN: 


_ 


, GLOBAL AREAS MACRO M1113 30-NOV-83 10:17 
' GLOBAL 


SUBROUTINES SECTION 


2953 017370 

2954 017372 000240 

2955 017374 000240 

2956 017376 105267 164124 
2958 017402 

2960 017402 


2961 017402 105267 164114 
000207 


° 
2973 017432 


017472 062706 000016 
on 017476 000207 


H8& 
SEQ 098 

NOP 

NOP 

NOP 

INCB STAFLG 3SET START FLAG TO ENABLE REWIND, 

INCB OROPED 3SET UNIT DROPPED FLAG. 

RTS PC sRETURN. 

-WORD O 3@ OF UNIT TO BE DROPPED 

SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 

INPUTS: 

OUTPUTS: 

REGISTERS: 

CALLS: 

PRINTX @GETSTM 
MOV @GETSTM, -CSP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP CSPNTX 


@4,SP 
PRINTX @STAERS,MSGPKT+MS .XSO,MSGPKT +MS.XS1,MSGPKT +MS.xXS2,MSGPKT +MS .XS3,.MSGPKT +MS.XS 


MOV MSGPKT +MS .xXS4,-(SP) 
MOV MSGPKT oMS .xS3,-CSP) 
MOV MSGPKT oMS. o-CSP) 
MOV MSGPKT MS .XS1,-CSP) 
MOV MSGPKT oMS. CSP) 
MOV @STAERS, -C(SP) 
MOV #6, -C 
MOV SP RO 
TRAP CSPNTX 
ADO #16.SP 

RTS PC 

SUBROUTINE TO HALT AFTER EACH COMMAND. 

INPUTS: 

OUTPUTS: 

REGISTERS: R3, R4 

CALLS: 

TSTs HAE, IFB HAE NE @0 THEN sIF HALT FLAG IS SET: 

BEQ 50323% 

TSTs MISCFG sIFB MISCFG EQ @0 THEN 8 

BNE 503246 

sIS MANUAL INTERVENTION ALLOWED? 
TRAP CSMANI 
BNCOMPLETE CKHRTN s6R IF NOT. 
Bcc CKHRTN 
CMDURD ,R4 sLET R4 :2° CMDWRD sCOMMAND WORD. 
F sFETCH ADR OF CMD ASCII. 
Move CR3)>¢,HALTM sMOVE CMD 
MOvB CR3)¢, HALTMel sLET HALTMel1 :Be (R3)-o 


MOvB C(R3),HALTM+2 sINTO MESSAGE. 
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' GLOB 


7 
3018 017570 
017570 
3019 017570 
3020 A 


017676 
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S 
AL SUBROUTINES SECTION 


163743 


we a ee ee ee ee ee. 


177777 


GMANIL HALTM, TIME1,1, YES 


a ee eS 


SEQ 099 


sHALT - WAIT FOR AN aaa 4 INPUT. 


C$GMAN 
on 100008 
-WORD TIME1 
-WORD TSCODE 
WORD HALTM 
-WORD 1 
100008: 
100008: 
503258 
503248: 
CLRB MISCFG sLET MISCFG :B= 00 8 
503258: 
505238: 
CKHRTN: RTS PC sRETURN 
ENDMOD 
- TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 
goo 
3s THE REPORT CODING SECTION CONTAINS THE 
3s “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
gee 
BGNRPT 
LSRPT:: 
RS, RSSAVE ee CURRENT DEVICE POINTER. 
JSR PC, FIRSTU sFIND THE FIRST UNIT 
50326%: ; WHILE DEVTBL(RS) NE @END 00 | WHILE THERE ARE MORE DEVICES: 
CMP DEVTBLCRS),. @END 
BEQ 503278 
PRINTS @RPT1A,DEVTBLCRS),PASCNTCRS),RECCNTCRS) 
MOV RECCNTCRS).-CSP) 
MOV PASCNTC(RS).-CSP) 
MOV DEVTBLCRS).-CSP) 
MOV @RPTIA, - ) 
MOY @4,-C(SP) 
MOV SP RO 
TRAP CSPNTS 
ADD #12,SP 
PRINTS ORPT1B ,WRBC+SOCRS),WRBC+20( RS), WRBC+10(RS),. WRBCCRS) 
MOV WRBCCRS).-CSP) 
MOV WRBC+10(RS), -CSP) 
MOV WRBC +20(RS).-CSP) 
MOV WRBC + 30¢ .-CSP) 
MOV @RPT1B.-CSP) 
MOV @5.-(SP 
MOV RO 
TRAP CSPNTS 





a a ee ee ee. 


| MISCELLANEOUS SECTIONS 
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T CODING SECTION 
062706 
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000014 


000014 
176776 


PRINTS 


PRINTS 


PRINTS 


PRINTS 


TSTB BADTSW 
BEQ 503308 


JSR PC, .BTRPT 


503308: 
PRINTS 


J8 


ADD 
tal narin eteaiatienestinise tremtrimateniccitmeica yam? 


MOV 
MOV 
MOV 


ADD #14, 
@RPT1D,,RFBC+3OCRS),.RFBC+20( RS), RFBC+10(RS) .RFBCCRS) 


@RPTIF ,WRRECCRS) ,RRRECCRS) .RFRECCRS) 


@RP''1G , WRUNRCRS ), RRUNRCRS ), RFUNRCRS ) 


Se eeMreeieereereeerere, 


sIFB BADTSW NE @0 THEN 


SEQ 100 


#14,SP 


RFBCCRS), -CSP 
RFBC+10(RS), - 
RS) 


sGO PRINT BAD TAPE SPOTS WHEN ENABLED 

@RPT1I,SCCNTCRS),HROCNTCRS) .FTLCNTCRS), VF YCNTCRS) 
MOV VF YCNTCRS). -CSP) 
MOV FTLCNTCRS), -CSP) 
MOV TCRS), -CSP) 
MOV SCCNTCRS). -CSP) 
MOV @RPTII, -CSP) 
MOV #5.-CSP) 
MOV SP ,.RO 
TRAP CsPNTS 
ADO #14,SP 


sFIND THE NEXT UNIT. 
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MISCELLANEOUS SECTIONS MACRO M1115 30-NOV-83 10:17 SEQ 101 
REPORT CODING SECTION 
3039 020154 503278; 
3040 020154 016705 163272 RSSAVE .RS sRESTORE CURRENT DEVICE POINTER. 
3041 020160 EXIT RPT 
020160 000167 «WORD J$JMP 
020162 001150 «WORD 110010-2-. 
3043 i SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 
3044 : WRITE RETRIES: CUMULATIVE COUNT 
3045 ’ BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE. 
soos COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 
3048 020164 BTRPT:: PRINTS @RPTLE,WRTYCTCRS) sPRINT GLOBAL WRITE RETRY COUNT 
0201 016546 003316 MOV WRTYCTCRS),-CSP) 
020170 012746 021057 MOV ORPTIE, -CSP) 
020174 012746 MOV #2,-CSP) 
020200 01 MOV SP RO 
020202 104416 TRAP CSPNTS 
020204 0627 ADD #6 .,SP 
3049 020210 016567 16 163274 MOV BTADDRCRS) .BTPT sBTPT IS BOTH THE BAD TAPE SPOT COUNTER 
: 020216 017703 163270 pad + tal RS sAND THE LOGGING INDEX 
PRINTS @RPT1IJ.RS sPRINT @ OF BAD TAPE SPOTS 
010346 MOV R3,-CSP) 
012746 021107 MOV @RPT1IJ, -CSP) 
O20232 012746 MOV »-CSP) 
020236 01 MOV SP ,.RO 
020240 104416 TRAP CSPNTS 
020242 062 000006 ADD #6. SP 
3053 020246 005705 TST R3 sPRINT RECORD @ IF BAD SPOTS DETECTED 
020250 001457 BEQ 503318 
3055 020252 327 000024 ChP R3,020. sIF R3 HI @20. THEN i 
020256 101402 BLOS 503328 
5057 020260 012703 000024 #20. .R3 1:20 BAD SPOTS IS THE LIMIT 
3059 020264 503328: 
020264 PRINTS @CRLF SP 3 
012746 005744 MOV @CRLFSP, -CSP) 
0202 012746 MOV #1,-C(SP) 
020274 O01 MOV SP .RO 
020276 104416 TRAP CSPNTS 
020 062706 000004 ADO @4,SP 
3061 020 016704 163202 MOV BTPT,R4 ;LET R4 := BIPT + #2 ;FETCH A BAD SPOT ID 
3062 02031 704 000002 ADO 2,R4 
3063 020314 Re sR2 © PRINT COUNT PER LINE: 10 MAX 
0203 503336:  sREPEAT i 
3065 020316 PRINTS @RPTIK, CRA) sPRINT A BAD SPOT ID 
0203 011446 MOV CR4),-CSP) 
012746 021174 MOV @RPTIK, -CSP) 
012746 MOV #2, -CSP) 
020. 01 MOV SP RO 
020332 104416 TRAP CsPNTS 
020 062706 000006 #6,SP 
3066 020340 INC R2 sLET R2 :*= R2 + @1 COUNT PRINTS 
3067 020342 062704 00000 ADO @2,R4 sLET R4 :* R4 + @2 NEXT 
020 000012 CMP R2,010. VIF R2 EQ #10. THEN ; 
020 001014 BNE 503348 


3069 352 
3070 020354 


PRINTS @CRLFSP 


sGO TO NEXT PRINT LINE PAST 10 PRINTS 
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3 

3107 021316 
021316 

3108 

3109 021316 

3110 021320 

3111 0213522 

3112 021324 

31135 

3114 


104425 


000000 
177777 
177777 
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005744 
000001 


000004 
000012 
000012 


005741 


L8 


SEQ 102 
MOV @CRLFSP, -CSP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP CSPNTS 


ADO 04 ,SP 
sADJUST BAD SPOT COUNT 
sADJUST PRINT COUNT 


SUB #10. ,R3 


sLET RS :* RB - #10. 
sus #10. Re 


sLET R2 :* R2 - #10. 
’ 


sUNTIL R2 EQ RS 
i 
@CRLF 3 


503348; 
R2,R3 


sLIMIT: ® OF BAD SPOTS 
503338 


503318: 


@CRLF , -( SP) 
#1, -(SP) 
RO 


CsPNTS 
64,SP 


-NLIST BEX 

-ASCIZ /SNENSAUNIT SD1SSSSAPASS : SOSSSSSARECORD : SOSSN/ 
/SABYTES WRITTEN SD38A,SZ38A,SZ58A ,SZ3EN/ 
/SABYTES READ REV ee asten atten ate 


/8S236AURTSS4SARDRS 
/SARE! 

/BARRE! 
/GAWRITE RETRIESSSESDSAN/ 
aetae BAD SPOTS THIS TAPE PASS PRECEDING RECORD @:/ 
“SASPEC CONDSSSSAHARDSSSSAF ATAL SS SSACOMPARESN” 
“anteater cemeenemscess: 


ENDRPT 
L10010: 


TRAP CSRPT 


-SBTTL LOAD DEVICE PROTECTION TABLE 


gee 
sTABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV 
sTHE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV 


BGNPROT 
L¢SPROT:: 
-WORD O 3P-TBL OFFSET OF TSDB 
-WORD -1 3P-TBL OFFSET OF MASS BUS UNIT @: -1 = NOT A MASS BUS DE 
WORD -1 3?-TBL OFFSET OF DRIVE @: -1 = NONE, THREE ORIVES PER CONTRO 
ENODPROT 
-SBTTL INITIALIZE SECTION 
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SEQ 103 
INITIALIZE SECTION 


3115 

3116 aoe 

3117 3: THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 

3118 3: AT THE BEGINNING OF EACH PASS. 

3119 t-- 

3120 

3121 021324 BGNINIT 
021324 LSINIT:: 

3123 021324 032727 000003 002330 INIT10: BIT @BITO!BIT1, OCMOPKT sIF CMD PACKET IS NOT ON MODULO 4 BOUNDRY: 

3124 021332 001421 BEQ 50335% 
021 SF 1,CMOPKM sPRINT ERROR MSG, 
021 104454 TRAP CsERSF 
021336 000001 -WORD 1 
021340 004346 «WORD CMDPKM 
021342 000000 -WORD O 

3126 021344 DELAY 200. :GO TO SUPERVISOR, WAIT 2 SECONDS. 
Setees 012727 000310 MOV #200. .CPC)+ 
021352 016727 160540 MOV LSOLY,.CPC)>+ 
021356 . 
021360 367 177772 DEC -6(PC) 
021364 001375 BNE .-4 
021366 177756 DEC -22€PC) 
021372 001367 BNE --20 

ae 021374 BR INIT10 ’ 

aH 021376 503358: 

3131 021376 105767 160602 TSTB G sIF CLR COUNTERS FLAG SET: 

3132 021402 0014135 BEG 503368 

33 021 1 7 160574 G sINIT CLR FLAG. 

3134 021410 CLR Re sLET R2 := 60 

3135 021412 503378: sWHILE R2 NE @CNTLEN DO 

3136 021412 7 000550 CMP R2, @CNTL 

3137 021416 001405 BEQ 503408 

3138 021420 005062 002626 CLR WRBCCR2) sCLR ALL STATISTICAL COUNTERS. 

std 021424 062702 000002 ADD @2,R2 sLET R2 := R2 + 02 

3141 021430 000770 6R 503378 

3142 021432 503408: 

3143 

seed 021432 503368: 

3146 021432 105767 160547 TSTB RRANY sIF RESET RANDOM VARIABLE FLAG IS SET THEN: 

3147 021436 001406 BEQ 50341% 

ps4 021440 012767 153624 161764 MOV @RANBC ,RANB sRESET RANDOM BASE @. 

ar 021446 012767 032561 161760 MOV @RANSC ,RANS sRESET RANDOM SAVE LOCATION. 

3152 021454 503418: 

3153 021454 READEF @#€F .START sREAD START COMMAND EVENT FLAG. 
021454 012700 000040 MOV @EF .START,.RO 
021460 104447 TRAP CSREFG 

3154 021462 BNCOMPLETE INITi5 sBRANCH IF NOT STARTING. 

103057 ecc INIT1iS 
3155 021464 105267 162036 INCB STAFLG sSET START COMMAND FLAG. 





ee wsG Re 


MISCELLANEOUS —_— 
INITIALIZE SECTI 
3156 021470 
3157 021474 
3158 021474 012765 
3159 021502 162705 


3160 021506 005705 
3161 021510 001371 
02276 


02 
3166 Getars 


3173 021616 005705 

3174 021620 

3175 

3176 021622 
021622 


021626 
3177 021630 


86 021666 
3187 021670 105767 
3186 021674 001010 
3189 021676 
021676 
021702 104447 
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000006 MOV @6.R5 ;LET RS := 06 
50342%: , REPEAT sINITIATE UNIT NUMBER TABLE 
177774 MOV @NINUSE, en 1BY STORING NOT IN USE IN EACH LOCATION. 
000002 Su8 2 ,R5 TRS :2 RS - 62 
TST RS \UNTIL RS EQ 00 
BNE 503428 
000001 160272 CMP #1,LSUNIT sONLY ONE UNIT ALLOWED 
BEQ 5034% 3 
PRINTF @AUDRUN sTELL THE MAN 
005146 MOV @AUORUN, - CSP) 
000001 MOV @1,-CSP) 
. MOV SP ,RO 
TRAP CSPNTF 
000004 ADO ° 
DELAY 25 sWAIT 
000025 MOV €25.CPC)+ 
. WORD 
160342 MOV LSOLY.CPC)+ 
. WORD 
177772 DEC -6(PC) 
BNE 4 
177756 DEC -22CPC) 
BNE --20 
DOCLN s ABORT 
TRAP CSOCLN 
160212 50348; —_ eae sLET RS :=* LSUNIT SHIFT 1 
50343%: ; REPEAT sSTORE ALL UNIT 
000002 SUB #2.R5 TRS :* RS - @2 sNUMBERS IN DEVTBL. 
002604 MOV RS. DEVTBLCRS) iLET DEVTBLC(RS) :*2 RS SHIFT -1 
002604 ASR DEVTBL( ? 
TST RS sUNTIL RS EQ #0 
BNE 50343% 
INIT15: READEF @€F .PUR sHAS THERE BE A POWER FAILURE? 
000034 MOV @€F .PWR.RO 
TRAP CSREFG 
BNCOMPLETE INIT16 sBRANCH IF NOT. — 
161670 STAFLG sIF SO - SET THE START FLAG. 
161665 INCB PWRFLG 3IF SO - SET THE POWER FAIL FLAG. 
INIT16: RFLAGS OPFLAG sREAD AND STORE FLAGS SET BY OPERATOR 
TRAP CSRFLA 
161666 MOV RO, OPFLAG 
CLR RS sLET RS := 60 sCLEAR EVENT FLAG 
161651 ome ooaakt 3sIF POWER FAIL HAS NOT OCCURRED THEN: 
READEF @E€F .NEW sUPDATE PASS COUNT WHEN 
000035 @€F .NEW,RO 
TRAP CSREFG 
Bcc 503458 sSUPERVISOP IS IN NEW PASS 
161632 TSTB STAFLG sAND DIAG WAS NEITHER STARTED 
BNE 50346% 
READEF #€F .RES sNOR 
000037 MOV @€F .RES,.RO 


TRAP CSREFG 
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MISCELLANEOUS SECTIONS MACRO M1113 30-NOV-83 10:17 SEQ 105 
INITIALIZE SECTION 
3190 021704 103402 Bcs 503478 sIFCOND CC THEN ;RESTARTED 
$191 021706 005103 COM R3 sLET RS :* COMP RS ;00 IT 
3193 021710 000401 BR 503508 
3194 021712 503478; 
3195 021712 005203 INC R3 sSET 1ST PASS IF NEW PASS AND 
3196 sRESTARTING 
$197 021714 503508: 
3199 021714 000401 BR 503518 
3200 021716 503468: 
3201 021716 005203 INC R3 sSET 1ST PASS IF NEW PASS AND 
3202 : sSTARTING 
3203 021720 503518: 
1:00 NOT UPDATE IT ON CONTINUE 
3205 021720 503458: 
3206 10R ON POWER FAIL 
3207 021720 503448: 
3208 021720 004767 175156 JSR PC .FIRSTU sINIT DEVICE POINTER. 
3209 021724 005002 CLR yer R2 :* @0 sINIT DEVICE COUNTER. 
3210 021726 50352¢: ;WHILE DEVTBL(RS) NE @END DO 
3211 021726 7 002608 177777 far , 
3212 021734 001456 BEQ 
3213 021736 INC R2 sLET R2 :* R26 O1 
3214 021740 010500 MOV RS.RO sLET RO :* RS SHIFT -2 
3215 021742 ASR RO 
3216 021744 GPHARD RO,RO :GET HARDWARE P TABLE FROM SUPER. 
021 104442 TRAP — CSGPHRD 
3217 021746 103044 acc 503548 IFCOND CS THEN 
3218 021750 011065 002514 MOV CRO), TSDBCRS) sSAVE TSDB ADORESS. 
3219 021754 0 MOV (RO)+, TSSRCRS) sSAVE TSSR ADORESS. 
3220 021760 062765 000002 002524 ADO €2, TSSRCRS) 
3221 021766 0 MOV (RO)e, TSVCTCRS) sSAVE INTERRUPT VECTOR ADORESS. 
3222 021772 011065 003532 MOV CRO), TSUNTCRS) sSAVE NUMBER OF DRIVE 
3223 021776 011067 161532 MOV sSAVE FOR PRINT OUT'S 
SETVEC TSVCTCRS), TSSINT(RS), @INTPRI 
012746 000340 MOV @INTPRI, -(SP) 
° 002554 MOV TSSINT(RS), -(SP) 
022012 0 002534 MOV TSVCTCRS), -(SP) 
022016 012746 000003 MOV 03, -(SP) 
022022 104437 TRAP - C8SVEC 
022024 062706 000010 ADO #10,SP 
3225 sSET UP INTERUPT PROCESSING CONDITIONS. 
3226 022030 005065 003472 CLR INTFLG(RS) sCLEAR INTERRUPT FLAGS. 
3227 022034 005703 TST RS sACTUAL PASSCOUNT UPDATE PER R3 
3228 022036 001410 RE 503558 
022040 005703 TS? R3 sIF R3 LT 00 THEN 
3230 022042 002003 503568 . 
$231 022044 005265 003326 INC PASCNT(RS) : {LET PASCNTCRS) :* PASCNTC(RS) + @1 
000403 eR 503576 ‘ 
3234 022052 503568: 
3235 022052 012765 000001 003326 Mov #1, PASCNTC(RS) sLET PASCNTCRS) :* @1 
3237 022060 503578; ; 
3238 


3239 022060 503556; 








. MISCELLANEOUS SECTIONS 
- INITIALIZE SECTION 


MACRO M1113 30-NOV-83 10:17 


003376 
175060 


005114 
000001 


000004 
000310 
157766 
177772 
177756 


161342 


177777 


161164 
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503548: 
RECCNTCRS) 
PC .NEXTU 
BR 503528 
50353%: 
TST Re 
503608 
PRINTF @AUORPM 
DELAY 200. 
BREAK 
DOCLN 
503608: 
SETPRI @PRIOO 
TSTB TREC 
BNE $ 
BIT @ADR , OPFLAG 
BNE 
JSR PC,.FIRSTU 
503626: 
CMP DEVTBLCRS), @END 
BEQ 1% 
CLRB TRAPD4 
SETVEC 04, @TRAP4, OINTPRI 
MOV #1, TIME1 
6R Ss 
JP 


en a eee 


SEQ 106 
sCLEAR RECORD COUNT 
s00 IT FOR ALL DEVICES. 
sIF THERE ARE NO UNITS: 
sPRINT ALL UNITS DROPPED, 
MOV @AUDRPM, -( SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADO @4,SP 
sGO TO SUPERVISOR, WAIT 2 SECONDS. 
MOV #200. ,CPC)+ 
. WORD 
MOV LOOLY.CPC)> 
. WORD 
OEC -6(PC) 
BNE .- 
DEC -22(PC) 
BNE --20 
3GO TO SUPERVISOR, CHECK TTY. Coane 
300 CLEAN CODE + ABORT PASS. 
TRAP CSOCLN 
sLOWER CPU PRIORITY TO O 
MOV @PRIOO RO 
CSSPRI 


TRAP 
sIF ERROR RECOVERY IS ENABLED 


sAND AUTO-DROP NOT CALLED, THEN SET UP FOR FIRST 
sWHILE THERE ARE MORE DEVICES: 


sCLEAR TRAP FLAG 

sSET VECTOR 4,PRIORTY 86 
MOV @INTPRI, -( SP) 
MOV @TRAP4 , -( SP) 
MOV @4,-CSP) 
Mov 3.-CSP) 
TRAP $SvEC 
ADD #10, SP 


sSTART 3.5 MINUTE COUNTER 
sINCR TIME] FROM @1 TO #25 BY #1 





pt a ge SECTIONS 


INITIALIZE SECTION 
3274 022260 
3275 022260 


MACRO M1113 30-NOV-83 10:17 


161152 
161146 
002340 
000025 
1357602 
177772 
177756 


161110 
000340 
023730 
000004 
000003 
000010 
002524 
000025 
157432 


177772 
177756 


002514 


175004 


503668: 
503658: 


DELAY 


DELAY 


CLRVEC 


TIME1 
—— 
er cotieammama ee: 


TRAPD4 


2s 
FTLCNTCRS) 
@NODEV, TSSRCRS ) 


DEVTBLCRS), DROPN 
RS,RO 


RO 
TRAPD4 
04, @TRAPG , GINTPRI 


@TSSRCRS) 
25 


sAND GET UNITS STATUS 
sWAIT 


sCLEAR VECTOR AT 4 


sIFB TRAPD4 NE #0 THEN 


sLET FTLCNTCRS) :© FTLCNTCRS) « 
sPRINT ERROR 


sSAVE @ OF UNIT TO BE DROPPED. 


ree ie ree ne en ee eee + 


sRO*LOGICAL DEVICE NUMBER 


sOROP THE UNIT 


TRAP 
s_ EXEC BGNDU-ENDOU CODE IF IDU = 


3:00 CLEAN EABORT 


sCLEAR TRAP F 


LAG 
sSET VECTOR 4,PRIORTY 86 


sCHECK FOR ADDRESS 
sWAIT 


sCLEAR VECTOR AT 4 


3 aBang SES “ie 


SEQ 107 


€25,(PC)+ 
LSOLY,CPC)- 
“6CPC) 

-22(PC) 

e -20 

04,RO 

CéCvEc 

@ 

TSSRCRS), -(SP) 
@NODEV, -CSP) 
2. -(SP) 

SP .RO 

CePNTF 


Cs000uU 
0 


Cs8O0CLN 


y+ bea -(SP) 


#25,.(CPC)> 
LSOLY.CPC)> 
~6CPC) 
-22(PC) 

20 





| MISCELLANEOUS SECTIONS MACRO M1113 30-NOV-83 10:17 SEQ 108 
| INITIALIZE SECTION 


022506 104436 TRAP CsCvec 
3298 022510 105767 161014 TSTB TRAPD4 sIFB TRAPD4 NE #0 THEN 
3299 022514 001424 BEQ 3% 
3300 022516 005265 0035366 INC FTLCNTCRS) sLET FTLCNTCRS) :* FILCNTCRS) + 01 
3301 022522 PRINTF @NODEV, TSSRCRS) sPRINT ERROR 
O22522 016546 002524 MOV TSSRCRS), -C SP) 
022526 012746 005545 MOV @NODEV, -C SP) 
022532 012746 000002 MOV #2,-C(SP) 
022536 010600 MOV SP,RO 
022540 104417 TRAP CSPNTF 
022542 062706 000006 ADD #6 ,SP 
022546 016567 002604 174634 MOV DEVTBLCRS),DROPN sSAVE @ OF UNIT TO BE DROPPED. 
3303 022554 010500 MOV RS.RO sRO*=LOGICAL DEVICE NUMBER 
3304 022556 ASR 
022560 sOROP THE UNIT 
104451 TRAP Cs000U 
3306 s_ EXEC BGNDU-ENDODU CODE IF IDU = 0 
3307 022562 DOCLN 3:00 CLEAN EABORT 
022562 104444 TRAP CS0CLN 
+4 003127 4t; 8GT 503678 
il 004767 165174 3%: JSR PC, SETOEF sSET UNIT NUMBER 
3312 022572 010475 002514 MOV R4,8TSOBCRS) 
3313 022576 DELAY 25 
022576 012727 000025 MOV @25,.(PC)+ 
000000 . WORD 
016727 157306 MOV LSOLY.CPC)+ 
022610 000000 . WORD 
022612 177772 DEC -6C(PC) 
022616 001375 BNE --4 
177756 DEC -22¢€PC) 
022624 001367 BNE --20 
3314 022626 012775 002340 002514 MOV @GSCPK , 8TSDBCRS ) sAND GET UNITS STATUS 
3315 022634 DELAY 25 sWAIT 
022634 012727 000025 MOV @25.C PC) 
022640 000000 . WORD 
022642 016727 157250 MOV LSOLY.CPC)+ 
022646 000000 . WORD 
022650 005367 177772 DEC -6C(PC) 
022654 0013575 BNE .- 
022656 005367 177756 DEC -22¢PC) 
022662 001367 BNE --20 
032775 000200 002524 BIT #TS.SSR,@TSSRCRS) sIF @TS.SSR SETIN STSSRCRS) THEN 
3317 022672 001420 BEQ 
35318 022674 032775 000100 002524 BIT @TS.OFL ,@TSSRC(RS) sIF @TS.OFL NOTSETIN STSSRCRS) THEN 
3319 022702 001001 BNE 503718 
coor 022704 000457 BR 503646 sEXIT COUNTER WHEN UNIT ON LINE 
3322 022706 503718: 
3323 022706 PRINTF @OFLINM, TSNP sPRINT UNIT OFF LINE EVERY 10 SEC 
022706 016746 160622 MOV TSNP,, -CSP) 
022712 012746 esate) MOV @OF LINM, -( SP) 
eoeras ps7 be ' MOV @2,-CSP) 


022 0600 MOV SP ,.RO 
022724 104417 TRAP CSPNTF 
022726 062706 000006 ADO 





| 


3324 
3325 022732 
3326 


002604 
023700 
000002 


000144 
157100 
177772 
177756 


177214 


160452 


000013 


nn re ne re ee ae 
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MISCELLANEOUS SECTIONS MACRO M1113 30-NOV-83 10:17 
INITIALIZE SECTION 


SEQ 109 
503728: 
BR 50373 
503708: 
PRINTF @NRDYM,DEVTBLC(RS) 
MOV DEVTBLC(RS).-CSP) 
MOV @NRDYM, -C SP) 
MOV @2,-CSP) 
MOV ~RO 
TRAP CSPNTF 
ADD #6 ,SP 
503736: 
#1, TIME] sINCR TIME2 FROM @1 TO #13 BY #1 
50374% 
503758: 
INC TIME] 
503748: 
CMP TIME2, #13 
BGT 503768 
DELAY 100. sWAIT FOR UNIT TO BE SET ON-LINE 
MOV #100. .CPC)+ 
~ WORD 
MOV LSOLY.CPC)>+ 
. WORD 
DEC -6(PC) 
BNE .* 
me -22¢€PC) 
BREAK sALLOW TERMINAL INTERRUPT 
TRAP CsBRK 
BR 503758 
503768: 
JMP 50366% 
503678: 
503646: 
CLRVEC 4 sCLEAR VECTOR AT 4 
MOV @4,RO 
TRAP Cscvec 
coe} ces 3sIF OFF LINE FOR 3.5 MINUTES 
JSR PC, MOVMSG sGET MESSAGE PACKET 
JSR PC, TCC1 sPRINT ERROR AND DROP OFF LINE UNIT 
503778: 
sREPEAT UNTIL ON LINE OR TIMED OUT. 
JSR PC,NEXTU 3SET UP FOR NEXT UNIT. 
JMP 503626 
503638; 
503616: 
TSsTB PWRFLG ;,IFB PWRFLG EQ #0 THEN 
BNE 504008 
MEMORY DATAWT 


sREQUEST MEMORY FROM SUPER FOR RD/WR BUFFERS. 
TRAP CSMEN 
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MISCELLANEOUS SECTIONS MACRO M1115 30-NOV-83 10:17 SEQ 110 
INITIALIZE SECTION 


023112 010067 160270 MOV RO ,DATAWT 
3363 023116 016767 160264 160264 MOV DATAWT,DATARD ,;SET RD BFR ADDRESS 
3364 023124 062767 004000 160256 ADO @DATCNT ,DATARD 
3365S 023132 027727 160250 004000 CMP GDATAWT,@DATCNT $$ WHEN NOT ENOUGH FREE MEMO AVAILABLE 
3366 0235140 002011 BGE 504018 
3367 023142 PRINTF @MEMOM sWARN OPERATOR 
023142 012746 023210 MOV @MEMOM, -C SP) 
023146 012746 000001 MOV #1,-(SP) 
023152 010600 MOV SP ,RO 
023154 104417 TRAP CSPNTF 
023156 062706 000004 ADD @4,SP 
3368 023162 DOCLN sAND ABORT PASS 
023162 104444 TRAP CS$DCLN 
3369 sOIAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO 
3370 023164 504018: 
3371 
save 023164 504008: 
3374 023164 105067 157024 CLRB CHGFLG sCLR CHANGE CMD SEQ TBL FLAG. 
3375 023170 012703 003526 MOV @ENDFLG,RS sLET RS := G 
3376 023174 004767 167464 JSR PC.CLRERR sCLEAR ALL FLAGS. 
Lf 023200 105067 1603235 CLRB PWRFLG sCLEAR THE POWER FAIL FLAG. 
3379 023204 EXIT INIT 
. + 023204 104432 TRAP CsExIT 
023206 000104 -WORD 110012-. 
3380 023210 045 101 106 MEMOM: .ASCII /SAFREE MEMO TOO SMALL FOR RD-WR BFRSSN/ 
023213 122 105 105 
023216 115 105 
3221 115 117 
3224 124 117 117 
023227 040 3 115 
023232 101 114 114 
023235 040 106 117 
122 122 
023243 104 055 127 
122 040 1 
023251 106 122 123 
02 045 116 
3381 023256 045 101 122 -ASCIZ /#ARE-LOAD IN LARGER MEMOSN/ 
023261 105 055 114 
117 101 
023267 111 116 


023306 045 116 000 
3382 -EVEN 
3383 
33864 023312 ENDINIT 
023312 L10012: 
sues 023312 104411 TRAP CsINIT 
3386 -SBTTL AUTO DROP SECTION 
3387 


3388 see 





MISCELLANEOUS SECTIONS 
AUTO DROP SECTION 


3394 023314 
023314 

3395 

3396 023314 


023526 
3423 023532 


177777 


173750 


002514 


000006 
173566 


te eee nee ns en. ee nn eee een. 


MACRO M1113 30-NOV-83 10:17 


sSECTION EXECUTED AFTER THE INIT 


sFROM INTERFACE 
t “= 


BGNAUTO 
LSAUTO:: 


JSR_PC,FIRSTU 
50402%: ; WHILE DEVTBLC(RS) NE @END DO 
CMP DEVTBLCRS), @END 


BEQ 504038 
CLRB TRAPD4 sLET 
SETVEC 04, @TRAP4, @INTPRI 


MOV STSOBCRS),R2 
CLRVEC 04 

TSTB TRAPD4 

BEQ 504048 


FTLCNTCRS) 
PRINTF @AUTOOM, TSOBCRS) 


MOV DEVTBLCRS),OROPN 
RS ,RO 


MOV 
ASR RO 
00DU RO 
BR 504058 
504048; 
@GSCPK , STSDBCRS ) 
JSR 


err @TS.SSR,@TSSRCRS) 
BIT @TS.OFL,@TSSRC(RS) 
BEQ 504078 


FTLCNTCRS) 
PRINTF @OFLINM, TSNP 


sOROP THE UNIT: EXEC BGNDU-ENDDU CODE af = = 0 


——__—_——_—— 


SEQ 111 


CODE WHEN “ADR” FLAG IS SET BY OPERATOR 
sSECTION CHEKS FOR A VALID INTERFACE LOCATION. ONSE 


DROPS UNIT IF NO RESP 


sFINO FIRST UNIT 
3 


TRAPD4 :B= 00 8 

sSET VECTOR 4 
MOV @INTPRI, -CSP) 
MOV @TRAP4 , -CSP) 
MOV @4,-CSP) 
MOV @3,-CSP) 
TRAP CsSvEC 

#10,SP 

sADDRESS TSOS INTERFACE 

sCLEAR VECTOR AT 4 
MOV #4 .,RO 
TRAP CsCvEC 


sIFB TRAPD4 NE @O THEN 
sLET FTLCNTCRS) := FTLCNTCRS) + @1 
T ERROR 


sPRIN 


g 


Hap alate oy 


MOV @AUT 

MOV #2. -CSP) 
MOV SP ,.RO 
TRAP 
ADO 


CSPNTF 


@6.,SP 
sSAVE @ OF UNIT TO BE DROPPED. 
sRO*LOGICAL DEVICE NUMBER 


C#000U 


sSEND GET STATUS COMMAND 

VIF @TS.SSR SETIN STSSRC(RS) THEN 
sIF @TS.OFL SETIN STSSRCRS) THEN 
sLET FTLCNTCRS) :© FTLCNTCRS) + @1 


MOV TSNP, -CSP) 
MOV @OFLINM, -(SP) 
MOV #2, -CSP) 


SP ,RO 
CSPNTF 
@6.SP 


MOV 
TRAP 
ADO 





| MISCELLANEOUS SECTIONS 


AUTO DROP SECTION 


19 


MACRO M1113 30-NOV-83 10:17 SEQ 112 

504078: 

BR 504108 

504068: 

003366 INC FTLCNTCRS) sLET FTLCNTCRS) := FTILCNTCRS) «+ #1 
PRINTF @NRDYM,DEVTBLC(RS) 

002604 MOV DEVTBLC(RS),-CSP) 
023700 MOV @NRDYM, -C SP) 
000002 


MOV @2,-CSP) 
MOV SP RO 
TRAP CSPNTF 


000006 ADD 06 ,SP 
173530 JSR PC ,OROPUA 
504108; 
504058: 
173350 JSR PC,NEXTU 
50402¢ 
504038: 
ENDAUTO 
L10013: 
TRAP CsAuTO 
101 102 AUTOOM: .ASCII /sSABUS TRAP AT s06sN/ 
123 040 
122 101 
040 101 
040 045 
066 045 
101 111 -ASCIZ /#AINTERFACE BAD OR NOT SET TO ABOVE ADSN/ 
124 105 
106 10! 
105 
101 104 
117 
116 117 
040 
124 
117 
102 117 
105 040 
BS 
101 125 NRDYM: .ASCIZ /#AUNIT #D18A NOT RDYS@N/ 
111 124 
045 
045 101 
116 117 
122 
131 045 


eo 
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| MISCELLANEOUS SECTIONS MACRO M1113 30-NOV-83 10:17 SEQ 113 
; AUTO DROP SECTION 


3447 

3448 i DEVICE BUS TRAP HANDLER 

3449 i OUTPUT: TRAPD4 BYTE i: ings A AT 4 

Sear ’ 0: NO TRAP 

3452 023730 105267 157574 TRAP4:: INCB TRAPD4;LET TRAPD4 :B6= TRAPD4 + 61 

3453 023734 000002 RTI 

3454 

3455 

oeee -SBTTL CLEANUP CODING SECTION 

3458 yee 

3459 3 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 

3460 3 AT THE END OF EACH PASS. 

3461 geo 

3462 

3463 023736 BGNCLN 
023736 LSCLEAN: : 

3465 023736 004767 173140 JSR PC, FIRSTU sFIND FIRST UNIT. 

3466 023742 50411%: ; WHILE DEVTBLC(RS) NE #END DO 

3467 023742 026527 002604 177777 CMP DEVTBLCRS).@END 

3468 023750 001410 BEQ 12 

3469 023752 004767 166722 JSR PC,WSSR sWAIT FOR UNIT READY OR TIMEOUT, 

3470 023756 CLRVEC TSVCTCRS) i RELEASE INTERRUPT VECTORS FOR ALL DEV. 
023756 016500 002534 MOV TSVCTCRS), RO 
023762 104436 TRAP CsCvec 

oars 023764 004767 173160 JSR PC,NEXTU sFIND NEXT UNIT. 

3473 023770 000764 BR 504118 

ted 023772 504128: 

3476 023772 EXIT CLN 
023772 104432 TRAP CsExIT 
023774 000002 -WORD 1L10014-. 

77 EVEN 
78 

3479 023776 
023776 L10014: 

023776 104412 TRAP CSCLEAN 

3481 -SBTTL DROP UNIT SECTION 

3483 

3484 ; "THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A BR 

3485 s TO NO LONGER BE TESTED. THAT CODE SHALL BE EXECUTED WHEN DODU 

Beet sMACRO IS CALLED WHILE IDU FLAG IS NOT SET BY OPERATOR 

t-; 

3488 

3489 024000 

a 024000 LSDU:: 

3491 024000 010005 MOV RO.RS sRS = LOGICAL DEVICE NUMBER X 2. 

3492 024002 006305 ASL 

3493 024004 012765 177774 002604 MOV @NINUSE ,DEVTBLCRS) 3sSET NOT IN USE FLAG FOR THE DEVICE. 

3494 024012 CLRVEC TSVCTCRS) sRELEASE THE INTERRUPT VECTOR. 


024012 016500 002534 MOV TSVCTCRS) RO 
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MISCELLANEOUS SECTIONS MACRO M1113 50-NOV-83 10:17 


SEQ 114 
DROP UNIT SECTION 
024016 104436 TRAP = CSCVEC 
3495 024020 PRINTF @DROPDM,OROPN sPRINT DROP DEVICE MESSAGE 
024020 016746 173364 MOV DROPN, -(SP) 
012746 005065 MOV @OROPOM, -(SP) 
024030 012746 600002 MOV @2,-(SP) 
01 SP ,.RO 
024036 104417 TRAP CSPNTF 
024040 062706 000006 ADD 06,SP 
3496 024044 EXIT ou 
024 000167 .WORD J$JMP 
“WORD 110015-2-. 
3497 EVEN 
3499 024050 ENDDU 
024050 L10015: 
meats 024050 104453 TRAP  C#DU 
3501 .SBTTL ADD UNIT SECTION 
3502 
3503 gee 
3504 3 THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3505 1 TO BE CA) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TESTING. IF 
$306 ; “EF.AUNIT” IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 
gee 
3508 
3509 024052 
024052 LSAU:: 
© 024052 010005 MOV RO.RS sRS = LOGICAL DEVICE NUMBER X 2. 
3511 024054 305 ASL RS 
S12 024056 010065 002604 MOV RO, DEVTBL(RS) sSTORE UNIT @ IN DEVICE TABLE. 
3513 024062 GPHARD RO.RO 1GET HARDWARE P TABLE FROM SUPER. 
024062 TRAP  C8GPHRD 
3514 024064 011065 002514 MOV (RO), TSOBCRS) sSAVE TSDB ADORESS. 
024070 002524 MOV CRO)+, TSSRCRS) sSAVE TSSR ADDRESS. 
3516 024074 765 000002 ADO #2. TSSRCR 
3517 024102 011065 002534 MOV CRO), TSVCTCRS) sSAVE INTERRUPT VECTOR ADDRESS. 
3518 024106 011065 003532 MOV (RO), TSUNTCRS) sSAVE NUMBER OF DRIVE 
3519 024112 011067 157416 MOV CRO), TSNP ;SAVE FOR PRINT OUT'S 
3520 024116 SETVEC TSVCTCRS), TSSINT(RS), @INTPRI 
024116 012746 000340 MOV @INTPRI, -(SP) 
024 016546 002554 MOV TSSINTCRS), -(SP) 
024 016546 002534 MOV TSVCTCRS), -(SP) 
024132 012746 000003 MOV .-(SP) 
024136 104437 TRAP 
024140 062706 000010 ADO #10,SP 
352 :SET UP INTERUPT PROCESSING CONDITIONS. 
3522 024144 005065 003472 CLR INTFLGC(RS) ;CLEAR INTERRUPT FLAGS. 
3524 024150 EXIT AU 
024150 000167 .WORD  JSUMP 
024152 “WORD 110016-2-. 
3525 
3526 EVEN 
3527 
3528 024154 ENDAU 
0241 L10016: 
024154 104452 TRAP = C$AU 


' MISCELLANEOUS SECTIONS MACRO M1113 50-NOV-835 10:17 
ADD UNIT SECTION 


157333 
157326 


172706 
162672 


002564 
177700 
002574 
177477 
002564 
002604 
004162 
000003 


002574 


177777 


002574 


SEQ 115 


- TITLE HAROWARE TESTS 


-SBTTL TEST 1: 


BASTC FUNCTIONS. 


soe . 
s TEST TO EXECUTE ALL TSOS FUNCTIONS. 


Tis: 


T1.1: 


118: 


50413%: 


PRINTF 


RANDOM sCLR THE RANDOM OPERATIONS FLAG. 
EXPBOT sCLR EXPECT BOT FLAG. 


sSUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 
| TRAP = C$BSUB 
PC.FIRSTU sFIND THE FIRST UNIT. 


PC SOFINIT sINIT DEVICE 

2,NSSRM, STAERM :REPORT TSOS NOT READY 
TRAP  CSERDF 
.WORD 2 
“WORD NSSRM 
“WORD  STAERM 

PC ,MDSET 1GO0 DO SETUP’S 

@8F SEQO,R2 sADR OF CMD SEQ. 

PC ,.BFSEQ sSET UP CMD SEQ. 

PC, EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 

PC.FIRSTU iFIND THE FIRST UNIT. 

DEVTBL(RS) NE @END DO WHILE THERE ARE MORE DEVICES: 

DEVTBLCRS), @€ND 

50414 

MSGPKACRS) ,R2 1GET MSG PACKET ADR, 

#12,R2 iat R2 := R2 + #12 3GET XSTAT2 ADR, 

(R2), TSSCLCRS) sSTORE CODE LEVEL FROM OTR BYTE, 

$177700, TSSCL(RS) 

(R2), TSSSWCRS) :STORE SWITCH SETTINGS 

#177477, TSSSWCRS) 


@CODELM, DEVTBL(RS), TSSCLCRS) 
MOV TSSCLCRS), -C€SP) 
MOV p= SL Saget FT Sa 


MOV @CODELM, - 
MOV #3, -(SP) 
MOV SP .RO 


ADO 
INT THE TSOS MICROCODE LEVEL. 
MOV TSSSWCRS), -CSP) 


sPRIN 
@SWSET ,DEVTBLC(RS), TSSSWCRS) 





pa 
| 
| 


3575 024366 

3576 024370 

3577 

3578 024370 
70 
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HARDWARE TESTS MACRO M1113 30-NOV-83 10:17 
TEST 1: GASIC FUNCTIONS. 


016546 002604 
012746 004231 
pay 000003 
104417 
062706 000010 
504158: 
004767 172562 JSR PC,NEXTU 
000723 BR 50413% 
504148; 
ENOSUB 
L10020: 
104403 
BGNSUB 
Tl.2: 
104402 
012702 025146 @BFSEQ1 ,R2 
004767 000444 JSP PC .BFSEQ 
004767 163616 JSR PC ,EXALL 
105067 157112 CLRB STAFLG 
ENOSUB 
L10021: 
104403 
BGNSUB 
71.3: 
104402 
012702 025160 @8F SEQ2 ,R2 
004767 000420 JSR PC .BFSEQ 
004767 163572 JSR PC,EXALL 
ENODSUB 
L10022: 
104403 
BGNSUB 
T1.4: 
104402 
012702 025252 MOV @BFSEQ3 ,R2 
004767 000400 JSR PC .BFSEQ 
004767 163552 JSR PC ,EXALL 
ENODSUB 
L10023: 
104403 
BGNSUB 
71.5: 
104402 
012702 025324 MOV @BF SEQ4 ,R2 
004767 000360 JSR PC .BFSEQ 


SEQ 116 


MOV DEVTBLCRS), -(SP) 
MOV @SWSET, -CSP) 
MOV ) 


AOD 
sPRINT THE TSOS SWITCH SETTINGS. 
sFIND NEXT UNIT. 


TRAP  CSESUB 
sSUBTEST 2 - REWIND. 

TRAP  CSBSUB 
;ADR OF CMD SEQ. 
sSET UP CMD SEQ. 
;EXECUTE CMD SEQ ON ALL DEVICES. 
CLEAR START FLAG 

TRAP  CSESUB 
sSUBTEST 3 - WRITE/VERIFY. 

TRAP CSBSUB 
sADR OF CMD SEQ. 
sSET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP  CSESUB 
;SUBTEST 4 - WRITE TAPE MARK, ERASE. 

TRAP  C#BSUB 
:ADR OF CMD SEQ. 
sSET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP  CSESUB 
;SUBTEST S - SPACE FILES. 

TRAP CSBSUB 


sADR OF CMD SEQ. 
sSET UP CMD SEQ. 


| NO 
| HARDWARE TESTS MACRO M1113 30-NOV-83 10:17 SEQ 117 
TEST 1: ®ASIC FUNCTIONS. 
024470 004767 163532 JSR PC, EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
3607 024474 ENOSUB 
024474 L10024: 
024474 104403 TRAP = CSESUB 
3609 024476 BGNSUB ;SUBTEST 6 - SPACE RECORDS. 
024476 T1.6: 
ia 024476 104402 TRAP C#BSUB 
3611 024500 012702 MOV @BFSEQS.R2 sADR OF CMD SEQ. 
024 004767 000340 JSR PC,BFSEQ :SET UP CMD SEQ. 
3613 024510 004767 163512 JSR PC. EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
3614 024514 ENOSUB 
0245 L10025: 
024514 104403 TRAP  CSESUB 
3616 024516 BGNSUB ;SUBTEST 7 - WRITE RETRY. 
0245 T1.7: 
“ 024516 104402 TRAP CsBSUB 
3618 024520 012 MOV @BF SEQ6 ,R2 sADR OF CMD SEQ. 
3619 024524 004767 000320 JSR PC.BFSEQ :SET UP CMD SEQ. 
024 004767 163472 JSR PC. EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
3621 024534 ENDSUB 
024534 L10026: 
024534 104403 TRAP CSESUB 
3623 024536 BGNSUB ;SUBTEST 8 - READ REV RETRY. 
024536 T1.8: 
024536 104402 TRAP CsBSUB 
3625 024540 012702 025512 MOV @8FSEQ7 ,R2 sADR OF CMD SEQ. 
024 004767 000300 JSR PC .BFSEQ sSET UP CMD SEQ. 
3627 024550 004767 163452 JSR : sEXECUTE CMD SEQ ON ALL DEVICES. 
024554 ENDSUB 
024 L10027: 
024554 104403 TRAP CSESUB 
3630 024556 BGNSUB ;SUBTEST 9 - READ FWD RETRY. 
024556 71.9: 
“tid 024556 104402 TRAP  C#BSUB 
3632 024560 012702 025544 MOV @8FSEQS .R2 sADR OF CMD SEQ. 
3633 024 004767 000260 JSR PC,BFSEQ 3SET UP CMD SEQ. 
3634 024570 004767 163432 JSR SEXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
3635 024574 ENDSUB 
0245 L10030: 
024574 104403 TRAP = CSESUB 
3637 024576 BGNSUB sSUBTEST 10- CLEAN. 
024576 T1.10: 
“ti 024576 104402 TRAP = C$BSUB 
3639 024600 012702 025576 MOV @BFSEQ9,R2 :ADR OF CMD SEQ. 
3640 024604 004767 000240 JSR PC ,BFSEQ sSET UP CMD SEQ. 
3641 024610 004767 163412 JSR PC, EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
3642 024614 ENDSUB 








TESTS 


HARDWARE 
TEST 1: BASIC 


ee eeEeEeEeEeEeeeeeeeeeeeeeeeeeeeeeeEeEEeEeEeEeEeEeEeEeEeEeeeeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEw 


MACRO M1113 30-NOV-83 10:17 SEQ 116 
FUNCTIONS. 
110031: 
104403 TRAP —- CSESUB 
oi oe sSUBTEST 11 - WTV SWAPPED DATA BYTES. 
. 3 
1 TRAP =—s-« C8BSUB 
012702 025620 Mov @BFSE10,R2 sADR OF CMD SEQ. 
004767 JSR PC ,BFSEQ sSET UP CMD SEQ. 
004767 163372 JSR PC. EXALL tWATTE/VERIEY RECORDS 1 AND 2. 
112767 000001 156656 MOVB #1, SMBFLG E BYTE SWAPP 
004767 163360 JSR PC. EXALL }WRITE/VERIFY RECORDS 3 AND 4, 
105067 156646 CLAS G ;OISABLE BYTE SWAPPING. 
ENDSUB 
10032: 
1 TRAP —- CSESUB 
016702 156526 MOV DATAWT ,R2 sINIT WRITE BUFFER POINTER. 
702 000012 ADO #10. ,R2 
50416¢: ;WHILE R2 NE DATAWT DO ;UNTIL 10 BYTES HAVE BEEN SWAPPED. 
020267 156516 CHP R2,DATANT 
001402 BEQ 504178 
SWAB -(R2) sSWAP DATA BYTES IN WRITE BUFFER. 
000773 semiil BR 504168 
: 
105267 156621 INCB TSW sSET TL SWAP BYTES FLAG FOR “CKDATA™ SUBR 
=“ BGNSLB sSUBTEST 12 - READ SWAPPED DATA BYTES. 
. : 
1 TRAP  C8BSUB 
012767 1 156506 Mov @ROR , CHOURD :CMD IS READ REV. 
004767 171234 JSR PC, VFEXC ;VERIFY ODO LENGTH SUA (RECORD 4). 
012767 12 155412 MOV 012, CHOPKT «CP .CNT 1CHANGE BYTE COUNT TO 1 
767 171222 JSR PC, VFEXC sVERIFY EVEN LENGTH Sune’ (RECORD 3). 
112767 000001 1 MOVB i, sENABLE BYTE : 
012767 000011 155372 MOV 011, CHDPKT CP .CNT sCHANGE BYTE COUNT TO 
004767 171202 JSR PC, VFE sVERIFY OOD LENGTH SWAP (RECORD 2). 
012767 000012 155360 MOV 012, CHDPKT CP. CNT sCHANGE BYTE COUNT TO 10. 
7 171170 JSR PC, VFE iVERIFY EVEN LENGTH SWAP (RECORD 1). 
012767 104001 156430 MOV eROF :CMD IS FWD. 
7 171156 JSR PC, VFEXC IVERIFY EVEN LENGTH SWAP (RECORD 1). 
012767 11 155334 MOV 011, CMOPKT «CP .CNT ' BYTE COUNT TO 9. 
004767 171144 JSR PC, VFEXC VERIFY O00 LENGTH SWAP (RECORD 2). 
7 CLR8 SWBFLG sOISABLE BYTE ING. 
012767 000012 155316 MOV 012, CHOPKT «CP .CNT , BYTE COUNT TO i0. 
767 171126 JSR PC, VFEXC sVERIFY EVEN SWAP (RECORD 3). 
012767 000011 155306 MOV @11, CMDPKT»CP.CNT sCHANGE BYTE COUNT TO 9. 
767 271114 JSR PC, VFEXC IVERIFY ODO LENGTH SWAP (RECORD 4). 
ENDSUB 
L10033: 
104403 TRAP —- CSESUB 
105067 156457 CLRB Os TSW :CLEAR Ti SWAP BYTES FLAG 
EXIT IST 
104432 TRAP = CSEXIT 
000574 .WORD 110017-. 
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HAROWARE TESTS MACRO M1113 30-NOV-83 10:17 SEQ 119 
| TEST 1: BASIC FUNCTIONS. 
3688 
3689 ’ SUBROUTINE TO MOVE A COMMAND SEQUENCE TO THE SEQUENCE TABLE. 
3690 5 INPUTS: R2 © FWA OF COMMAND SEQUENCE. 
3691 i OUTPUTS: 
3692 ’ REGISTERS: 
seus ’ CALLS: 
3695 025050 012701 003540 BFSEQ:: MOV @CMDSEQ,.R1 sINIT SEQ TABLE ADORESS. 
3696 025054 504206: {UnILE (R2) NE @END 00 sWHILE THERE ARE MORE COMMANDS: 
3697 025054 021227 177777 (R2), END 
3698 025060 001402 BEQ 504218 
3699 025062 012221 MOV (R2)+,CR1)© sMOVE COMMANDS TO SEQ TABLE. 
3701 025064 000773 eR 504208 
3702 025066 504216: 
3703 025066 012711 177777 MOV @END, (RL) sSTORE END OF SEQUENCE CODE. 
3704 025072 000207 ATS PC sRETURN. 
3705 
3706 
ae: 1 BASIC FUNCTION COMMAND SEQUENCE 
3709 025074 140004 BFSEQO: .WORD SCH sSET CHAR. 200. (1) 
3710 025076 000200 200 
3711 025100 000001 1 
3712 025102 7) 
3713 025104 100013 DRI sDRIVE INIT. (2) 
3714 025106 1 1 
3715 025110 000001 1 
3716 025112 7) 
3717 025114 140004 SCH sSET CHAR. 20 (3) 
3718 025116 000020 20 
025120 000001 i 
025122 000000 0 
3721 025124 100017 GES 3GET STATUS. (4) 
025126 i 
3723 025130 000001 a 
3724 025132 0 
3725 025134 140004 SCH sSET CHAR. 40. (5) 
3726 025136 40 
3727 025140 000001 1 
3728 025142 000000 0 
3729 025144 177777 .WORD END . 
3731 025146 102010 BFSEQ1: RWO sREWIND TWICE. (6) 
3732 025150 000001 i 
3733 025152 2 
3734 025154 000000 0 
S735 025156 177777 .WORD END : 
3737 025160 104105 BF SEQ2: wiv sWRITE/VERIFY PAT 1. (7) 
3738 025162 004000 DATCNT . 
3739 025164 000001 1 
3740 025166 000001 i 
3741 025170 104105 wtv sWTV PAT 2. (8) 
3742 025172 004000 OATCNT 


3743 025174 000001 
3744 025176 000002 


Ld 
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| HARDWARE TESTS MACRO M1113 30-NOV-835 10:17 SEQ 120 
_ TEST 1: BASIC FUNCTIONS. 


3745 025200 104105 WTV sWTV PAT 3. (9) 
3746 025202 004000 DATCNT 
3747 025204 000001 L 
3748 025206 000005 
3749 025210 104105 wWTV sWTV PAT 4, (10) 
3750 025212 004000 DATCNT 
3751 025214 000001 
3752 025216 000004 
O25220 104105 wWTV sWTV PAT S. (11) 
3754 025222 004000 DATCNT 
3755 025224 000001 5 
37356 025226 000005 Ss 
3757 025230 104105 wWTV sWTV PAT 6. (12) 
3758 025232 004000 DATCNT 
3759 025234 000001 
3760 025236 000006 
1 025240 104105 WTV sWTV PAT O. (13) 
3762 025242 004000 DATCNT 
3763 025244 000001 1 
3764 025246 000000 te) 
ree 025250 177777 -WORD END 
3767 025252 100011 BFSEQ3: WIM sWRITE TAPE MARK. (14) 
3768 025254 000001 1 
3769 025256 000001 i 
025260 ) 
3771 025262 104005 WRT sWRITE 10 RECORDS. (15) 
3772 025264 004000 DATCNT 
000010 10 
3774 025270 000001 i 
025272 100411 ERS sERASE 10 TIMES. (16) 
3776 025274 000001 
3777 025276 000010 10 
3778 025300 000000 0) 
025302 100011 wTM sWRITE TAPE MARK. (17) 
025304 000001 a 
3781 025306 000001 L 
3782 025310 000000 te) 
3783 025312 101011 WTR sWTM RETRY (18) 
3784 025314 000001 1 
3783S 025316 000001 1 
025320 0 
sre 0235322 177777 -WORD END 
3789 025324 105410 BF SEQ4: SFR sSPACE 2 FILES REV. (19) 
3790 025326 000002 2 
3791 025330 000001 1 
3 025332 to) 
3793 025334 105010 SFF sSPACE 2 FILES Fw. (20) 
3 025336 2 
3795 025340 000001 i 
3 025342 0 
3797 025344 105410 SFR sSPACE 2 FILES REV. €21) 
025346 1 1 
3799 025350 a 
025352 ° 
3601 025354 105010 SFF sSPACE 2 FILES Fwo. C22) 
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BASIC FUNCTIONS. 


000001 
000002 


000000 
177777 
102010 
000001 
000001 
000000 
104010 
000007 
000001 
000000 
104410 


104401 


BF SEQS: 


BFSEQ6: 


BF SEQ7: 


ne ee ee 


mone 


an ha 4 zg. 3° fe x + eo z 


Z 


cero 
7 5 
z 


2" 33 te pene 
3 
i 


Oo 
= 
~ 
= 
ear 


sREWIND. 


sSPACE 7 RECORDS Fwd. 


sSPACE 7 RECORDS REV. 


sSPACE 7 RECORDS FwO. 


sSPACE 7 RECORDS REV. 


sWRITE. 


sWRITE RETRY. 


sWRITE TAPE MARK. 


sSPACE 1 FILE REV. 


sREAD REV. 


sREAD NEXT REV. 


(31) 
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TESTS MACRO M1113 30-NOV-83 10:17 
BASIC FUNCTIONS. 


125401 
004000 
000001 
000001 
177777 


104001 BFSEQS: 


BFSE10: 


000000 
177777 


L10017;: 
104401 


. SBTTL 


h oe 

T2:: 
000001 155643 
155636 


155574 
171214 


. WORD 
-EVEN 


ENDTST 


TEST 2: 


gee 
s TEST TO CHECK 


BGNTST 


goo3 


ROF 
DATCNT 


DATA RELIABILITY. 
THE DATA RELIABILITY OF 


#1,RANDOM 
EXPBOT 


WIMFLG 
PC, .FIRSTU 


SEQ 122 

sREAD NEXT FWD. (33) 

sREAD FWD. (34) 

sREAD PREVIOUS FWD. (35) 

sREAD PREVIOUS REV. (36) 

sCLEAN, (37) 

sREWIND (38) 

sEND OF SEQUENCE. 

sWRITE/VERIFY EVEN LENGTH. (39) 
sWRITE/VERIFY OOD LENGTH. (40) 

TRAP CsETSsT 


THE TSOS. 


sSET THE RANDOM OPERATIONS FLAG. 
SCLEAR one BOoT amy 
sCLEAR WRITE TAPE MARK FL 


sFIND THE FIRST UNIT. 





3913 025666 
3914 025672 
3915 025674 

025674 
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HARDWARE TESTS 
TEST 2: DATA RELIABILITY. 


161200 


118: 


504228: 


504238: 
504248; 


155422 


504258: 
177777 
162166 


003540 


155450 


001546 


000126 
177740 155444 


JSR 
BCS 
ERROF 


SETCH 
STAFLG 
504248 


G10 


PC ,SOFINIT 
ow 


PC ,MOSET 
@DATCNT ,R2 
R2 

Re, LENMSK 
LENMSK 

PC, SETRW 


STAFLG 


@UTV,.CR1ID+ 


@DATCNT ,CR1 D+ 
@RNOPSC ,R2 


R2 
R2,CR1I)Do 


@RANP ,CR1)+ 


R1, @SEQEND 
504256 
RANB ,RANS 


$ 
NSSRM, STAERM 


sIFB STAFLG NE #0 THEN 


sLET STAFLG :B= #0 


RANS ,R2 
#177741 ,R2 
GRANCMOD( R2 ) 


SEQ 123 


sINIT DEVICE 


sREPORT TSOS NOT READY 


TRAP . $ERDF 


NSSRM 
- WORD STAERM 
1G0 DO SETUP’S 
sSET UP THE RECORD LENGTH MASK, 
sALLOW MAXIMUM BUFFER. 


sCMD 1 = SET CHARACTERISTIC. 
sIF STARTING THEN: 


s —_— 
sCLR START FLAG. 


s DO A SUPVSR BREAK FIRST. 
TRAP CsBRK 


sFILL SEQ TBL WITH RANDOM CMDS. 
sLET RANS ;* RANS + RANB 


sSET UP A RANDOM CMD « BRF. 


sSTORE END OF SEQUENCE CODE IN ly. 
sGO EXECUTE ALL CMDS IN SEQUENCE T 


sINIT CMD SEQ TEL POINTER, 
sREPEAT UNTIL EOT IS REACHED 


sFLAG ALL UNITS 8 EOT 


sWRITE ONE neces BEYOND EOT ON ALL UNITS 
3SO THAT SHORTER READ STOP DISTANCE 
SHALL POSITION HEAD IN CLEAN IRG GAP 
sREAD REV THAT EXTRA REC TO RE-POSITION THE TAPE 
sSET UP READ REV/FWO CMDS, 
0 OF RECORDS FOR READ REV. 
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’ HARDWARE TESTS MACRO M1113 30-NOV-83 10:17 SEQ 124 
| TEST 2: DATA RELIABILITY. 
3965 026104 016767 155434 155442 MOV CMOSEQ:4 , CMDSEQ+14 3@ OF RECORDS FOR READ FORWARD. 
3966 026112 012711 177777 MOV @END,CR1) sSTORE END OF SEQUENSE CODE IN SEQ TABLE. 
3967 026116 004767 162104 JSR PC ,EXALL 3GO EXECUTE READ REV/FWD OF LAST N RECORDS. 
3968 026122 105067 155376 CLRB ALLEOT sCLEAR ALL UNITS 8 EOT FLAG 
3969 026126 112767 000001 155363 MOVB #1,RPTFLG sREQUEST PERFORMANCE REPORT DURING REWIND. 
3970 026134 012701 003540 MOV @CMDSEQ,.R1 sINIT SEQ TBL POINTER, 
3971 026140 004767 162042 JSR PC, SETRW sSTORE REWIND IN SEQ TBL, 
3972 026144 012711 177777 MOV @END,.CR1) sSTORE END IN SEQ TEL, 
4h 026150 004767 162052 JSR PC ,.EXALL HEXECUTE REWIND CMD ON ALL UNITS 
3975 026154 EXIT TST 
026154 104432 TRAP CsExIT 
5076 026156 000320 -WORD L10034-. 
3977 3 ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
ad | r THE DATA RELIABILITY TEST. 
3980 026160 0263532 RANCMD: RANWR sWRITE 
3981 026162 026356 RANWYV sWRITE. 
3982 026164 026352 RANYR sWRITE. 
026166 RANYUR sWRITE. 
3984 026170 026332 RANUR sWRITE. 
3985 026172 RANWR sWRITE. 
3986 026174 026332 RARER sWRITE. 
3987 026176 026332 RAWWR sWRITE. 
026220 RANRD r] . 
3989 026202 026220 RANAD sREAD. 
3 026220 RANRD sREAD. 
026220 RANROD 3 “ 
3992 026210 026220 RANRO sREAD. 
3993 026212 026220 RANRD sREAD. 
3994 026214 026220 RAN 2D sREAD. 
3995 026216 026220 RANRD sREAD. 
see 
tbe 8 oan TO SET UP READ COMMANDS IN SEQUENCE TABLE. 
8 3 
4000 5 S: 
4001 a REGISTERS: Re 
pes 8 S: 
4004 026220 005767 155232 RANRD:: TST WTIMFLG sWAS LAST CMD A WRITE? 
4005 026224 001406 BEQ is 3NO.GO AHEAD 
026226 004767 000136 JSR PC ,RAWTM sYES PUT DOWN TAPE MARK 
4007 026232 004767 JSR PC,RASFR 3sAND SPACE FILE REV 
4008 026236 7 155214 CLR WIMFLG 3 THEN CLEAR THE FLAG 
020127 003740 is: Cup R1., @SEQEND 
4010 026246 002030 BGE 
4011 026250 012721 104401 MOV sSTORE READ REV CMD. 
4012 026254 012721 004000 MOV sonTeNT: ord 3sSET BRF TO MAX FOR READ RANDOM LENGTHS. 
4013 026260 066767 155150 155144 ADO RANS ,RANS sLET RANB :*° RANB + RANS 
4014 026266 016702 155140 MOV RANB ,R2 sLET R2 :° RANB CLR.BY @RNOPSC 
4015 026272 702 177740 BIC e 
4016 026276 1 MOV R2,CR1ID« sSET RANDOM @ OF OPERATIONS. 
4017 026300 012721 7 MOV @RANP , CR1)> | RANOOM PATTERN. 
4018 026304 020127 003740 CMP R1, @SEQEND 
4019 026310 BGE es 
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012721 
012721 
010221 
012721 
000207 


012721 
004767 


020127 
002007 
012721 
012721 


HARDWARE TESTS 
TEST 2: DATA RELIABILITY. 


104001 
004000 


000007 


104005 
000102 
155110 
155102 


104105 
000056 


RAWTM: : 


18: 


RASFR:: 


SEQ 125 

MOV @ROF ,CR1)+ sSTORE READ FWD CMD. 
MOV @DATCNT,.CR1)> sSET BRF TO MAX TO at RANDOM LENGTHS. 
MOV R2,CR1)> sSET RANDOM @ OF OPERATIONS. 

Vv @RANP ,CR1)> } RANDOM PATTERN. 
RTS PC 
SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE, 
THEN A WRITE TAPE MARK AND SPACE FILE REVERSE. 
INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 
MOV @WRT ,CR1D+ sSTORE WRITE CMD. 
JSR PC, sSTORE os ® A OPERATIONS. PATTERN. 
TST WTMFLG }LAST CMD A WRT? 
BNE 1% 3s YES, RETURN 
INC WTMFLG 3NO,SET THE FLAG 
RTS PC 


or» tae TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
INPUTS: 


OUTPUTS: 
REGISTERS: 
CALLS: 


@UTV,CR1D¢ sSTORE WRITE/VERIFY CMD. 
Pi ‘ sSTORE BRF, @ OF OPERATIONS, PATTERN. 


PC 
| =: pat TO SET UP A WRITE TAPE MARK IN THE SEQUENCE TABLE. 
INPUTS: 
OUTPUTS: 
mie 
g 


sSTORE WRITE TAPE MARK CMD. 


o 1° OF OPERATIONS 
TST CR1)D> sSKIP PATTERNS 


RTS PC 


SUBROUTINE TO SET UP A SPACE FILE REVERSE IN THE SEQUENCE TABLE. 
3 


OUTPUTS: 
ore Meee : 
: 


ytd 
@SFR,CR1)+ 
#1,CR1)D« 


sSTORE SPACE FILE REVERSE 
MOV s6RF 
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| HARDWARE TESTS MACRO M1113 30-NOV-83 10:17 SEQ 126 
| TEST 2: DATA RELIABILITY. 
4077 026434 012721 000001 MOV #1,CR1)-+ 14 OF OPERATIONS 
4078 026440 005721 TST CR1)> 1 SKIP PATTERNS 
4079 026442 000207 it: RTS PC 
208i 
4082 3 SUBROUTINE TO STORE BREF, @ OF OPERATIONS, PATTERN IN COMMAND 
4083 ry SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 
4084 ’ INPUTS: 
4085 3 OUTPUTS: 
4086 3 REGISTERS: Re 
poo df 3 CALLS: 
4089 026444 012721 004000 RANW:: MOV @DATCNT ,CR1)+ sSET BRF TO MAX FOR PATTERN GENERATION. 
4090 RANDOM GRF WILL BE GENERATED FOR EACH RECORD. 
4091 026450 066767 154760 154754 ADD RANS , RANS iLET RANB :* RANB + RANS 
026456 016702 154750 MOV RANB ,R2 sLET R2 :*= RANB CLR.BY @RNOPSC 
4093 026462 042702 177740 BIC @RNOPSC .R2 
4094 026466 010221 MOV R2,CR1)> 3SET RANDOM @ OF OPERATIONS. 
4095 026470 012721 000007 MOV @RANP ,CR1)> ; RANDOM PATTERN. 
4096 026474 000207 RTS PC sRETURN. 
4097 
-EVEN 
4100 026476 ENDTST 
026476 L10034: 
4101 026476 104401 TRAP CsETSsT 
ty | -SBTTL TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 
41048 gee 
rte 3: TEST TO WRITE RECORDS FROM BOT TO EOT. 
4107 , 
4108 026500 BGNTST 
e109 026500 T3:: 
4110 026500 112767 000001 155007 MOVB #1 , RANDOM 3SET THE RANDOM OPERATIONS FLAG. 
oaas 026506 105067 155002 CLRB EXPBOT ;LET EXPBOT :B= 60 sCLEAR EXPECT BOT FLAG. 
41135 026512 004767 170364 JSR PC,FIRSTU 3sFIND THE FIRST UNIT. 
4114 026516 004767 160350 JSR PC,SOF INIT sINIT DEVICE 
4115 026522 103404 bcs 118 
4116 026524 ERROF 2,.NSSRM,STAERM sREPORT TSOS NOT READY 
026524 104455 TRAP CsEROF 
026526 000002 -WORDB 2 
026530 004536 a NSSRM 
4117 ‘ STAERM 
4118 026534 004767 160726 118: JSR PC .MDSET 3GO0 DO SETUP’S 
4119 026540 012702 004000 MOV @DATCNT ,R2 sSET UP THE RECORD LENGTH MASK. 
4120 026544 005302 DEC Re 
4121 026546 010267 154656 MOV Re, LENMSK sALLOW MAXIMUM BUFFER. 
4122 026552 005167 154652 COM LENMSK 
4123 026556 004767 161400 JSR PC,SETCH 3sCMD 1 = SET CHARACTERISTIC. 
4124 026562 004767 161420 JSR PC, SETRW sCMO2°REWIND 
4125 026566 105067 154734 CLRB STAFLG ;LET STAFLG  ¢ @0 sCLEAR START FLAG 


4126 026572 50426%: BREAK s DO A SUPVSR BREAK FIRST. 
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TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 
026572 104422 TRAP CsBRK 


4128 026574 504278; sWHILE THERE IS MORE ROOM IN SEQ TABLE: 
4129 026574 020127 003740 CMP R1, @SEQEND 
026600 BGE 30% 
4131 026602 004767 177524 JSR PC, RANWR sSTORE A WRITE CMD IN SEQUENCE TABLE. 
026606 000772 BR 50427% 
4133 026610 504308; 
4134 026610 012711 177777 MOV @END,CR1) sSTORE END OF SEQUENCE CODE IN TABLE. 
4135 026614 004767 161406 JSR PC,EXALL sEXECUTE ALL CMDS IN SEQ TBL ON UNITS. 
026620 012701 3540 MOV @CMOSEQ,R1 sINIT SEQ TBL POINTER, 
4137 026624 702 TST R2 sREPEAT UNTIL EOT IS REACHED 
026626 001761 BEQ 26 
4139 026630 105267 154670 INCB ALLEOT sSET ALL UNITS @ EOT FLAG 
026634 000240 NOP 
4141 026636 000240 NOP 
026640 000240 NOP 
4143 026642 004767 000766 JSR PC, TSWEOT sWRITE ONE RECORD BEYOND EOT ON ALL UNITS 
4144 sSO THAT SHORTER READ STOP DISTANCE 
4145 sSHALL POSITION HEAD IN CLEAN IRG GAP 
4146 sREAD REV THAT EXTRA REC Am we: ae TAPE 
4147 026646 105067 1546 CLRB ALLEOT sCLEAR ALL aS T FLAG 
026652 004767 161550 JSR PC, i STORE REWIND IN Sea. TeL, 
4149 026656 012711 177777 MOV @END,.CR1) sSTORE END IN SEG TBL, 
t+ 004767 161340 JSR PC,EXALL }EXECUTE REWIND CMD ON ALL UNITS 
4152 
4153 026666 EXIT TST 
conse 104432 TRAP CsExIT 
156 026670 000002 -WORD L10035-. 
4155 -EVEN 
4156 
4157 026672 ENDTST 
026672 L10035: 
026672 104401 TRAP CsETST 
4156 
4159 
onda -SBTTL TEST 4: READ COMPATABILITY/READ UTILITY. 
4162 soe 
Stas s TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 
gece 
41 
4166 026674 BGNTST 
4167 026674 T4:3 
4166 026674 112767 000001 154613 MOVB @1,RANDOM sSET THE RANDOM OPERATIONS FLAG. 
4169 026702 112767 000001 154604 MOVE #1,EXPBOT sSET EXPECT BOT FLAG. 
4171 026710 004767 170166 JSR PC,.FIRSTU sFIND THE FIRST UNIT. 
4172 026714 004767 160152 JSR PC ,.SOFINIT sINIT DEVICE 
4173 026720 10 eBcs 118 
4174 026722 2.NSSRN, STAERM sREPORT TSOS NOT READY 
026722 104455 TRAP CSEROF 
026724 000002 -WORD 2 
026726 004536 .WORD NSSRM 





| HARDWARE TESTS MACRO M1113 30-NOV-83 10:17 SEQ 126 


TEST 4: READ COMPATABILITY/READ UTILITY. 
arzs 028730 006120 .WORD STAERM 
4176 026732 004767 160530 118: JSR PC ,MOSET 1GO 00 SETUP’S 
4177 026736 004767 161220 JSR PC, SETCH ;CMO 1 = SET CHARACTERISTIC. 
4178 026742 004767 16 JSR PC,SETRW sCMO2*REWIND. 
4179 026746 105067 154554 CLAG " STAFLG LET STAFLG :B= #0 :CLEAR START FLAG 
4180 026752 012721 104001 MOV 1CMO3 © READ F 
4181 026756 012721 004000 MOV @0A TeNTe CRL)» }SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
4182 026762 012721 077777 MOV 077777, (R1)* 1SET RECORD COUNT TO MAX FOR WHOLE TAPE. 
4183 026766 012721 000007 HOV @RANP ,CR1)> ;PATTERN © RANDOM. 
4184 026772 012711 177777 MOV END, CR1) sSTORE END OF SEQUENCE CODE IN TABLE. 
4185 026776 004767 161224 JSR PC, EXALL sEXECUTE ALL CMDS IN SEQ TBL ON ALL UNITS. 
4186 027002 105267 154516 INCB  ALLEOT FLAG TO ALLOW ALL UNITS AT EOT TO READ REV 
4187 027006 012701 003540 MOV @CMOSEQ, Ri sINIT CHD SEQ TBL POINTER. 
4188 027012 012721 104401 MOV @ROR, CRi)> CMD1L © REVERSE. 
4189 027016 012721 004000 HOV @DATCNT, (R1)> iSET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
4190 027022 012721 077777 MOV 077777, CRi)> RECORD COUNT FOR WHOLE TAPE. 
4191 027026 012721 000007 MOV @RANP ,CR1)« IPATTERN = RANDOM. 
4192 027032 012711 177777 MOV @END,CR1) ;STORE END OF SEQUENCE CODE IN TABLE 
4193 027036 004767 161164 JSR JEXALL }GO EXECUTE READ REV. OF ENTIRE TAPE. 
a1 105067 154456 CLRB  ALLEOT iCLEAR ALL UNITS @ EOT FLAG 
4196 027046 EXIT TST 
027046 104432 TRAP - C#EXIT 
arg? 027050 900002 .WORD  110036-. 
4198 LEVEN 
4199 
4200 027052 ENOTST 
027052 L10036: 
azo, (27052 104401 TRAP  CSETST 
4202 .SBTTL TEST S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
4204 _ 
4205 ; TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
4207 , 
4208 027054 BGNTST 
027054 TS:: 
4210 027054 105067 154435 CLRB RANDOM :CLEAR RAMDOM MODE FLAG. 
4211 027060 112767 000001 154426 MOVE #1, EXPBOT ;SET EXPECT BOT FLAG. 
4213 027066 004767 170010 JSR PC,FIRSTU 1FIND THE FIRST UNIT. 
4214 027072 004767 157774 JSR PC. SOFINIT sINIT DEVICE 
4215 027076 103404 cs 1 
4216 027100 ERROF  2,NSSRM,STAERM sREPORT TSOS NOT READY 
027100 104455 TRAP  CSEROF 
027102 000002 .WORD 2 
027104 004536 "WORD NSSRM 
azi7 027106 906120 "WORD  STAERM 
4218 027110 004767 160352 118: JSR PC ,MOSET 1GO DO SETUP'S 
4219 027114 116767 153076 154377 MOVE  PIRE, IRE }MOVE INHIBIT RFC ERROR REPORT FLAG. 
4220 027122 004767 161034 JSR PC,SETCH 1CMD 1 © SET CHARACTERISTIC. 


4221 027126 016767 153066 154406 MOV CHAR , CMDSEQ+2 sMOVE CHAR CODE FROM P TEL TO SEQ TBL. 
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| TEST S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
| 4222 027134 012702 02222 MOV @CMOD , R2 sR2 POINTS TO CMD2 Iii SOFT P TABLE. 
4223 027140 004767 000446 JSR PC .PTCMOS sMOVE CMD 2 FROM P TEL TO SEQ TBL. 
4224 027144 004767 000442 JSR PC.PTCMOS sMOVE CMD 3 FROM P TEL TO SEQ TEL. 
4225 027150 7 000436 JSR PC,.PTCMOS sMOVE CMD 4 FROM P TBL TO SEQ TEL. 
| 4226 S4 004767 000432 JSR PC,.PTCMDS sMOVE CMD S FROM P TEL TO SEQ TBL. 
4227 027160 004767 JSR PC,.PTCMDS sMOVE CMD 6 FROM P TEL TO SEQ TBL. 
4226 027164 004767 JSR PC .PTCMOS sMOVE CMD 7 FROM P TBL TO SEQ TBL. 
4229 027 004767 000416 JSR PC ,.PTCMOS : END CMD FROM P TBL TO SEQ TEL. 
4230 027174 CLR JP CMD LOOP COUNT. 
4231 027200 105067 154322 CLRB STAFLG sCLEAR START FLAG 
4232 027204 012701 003540 MOV @CMOSEQ,R1 so Y SEQUENCE TABLE POINTER. 
4233 027210 3%: sWHILE (R1) NE @END DO WHILE THERE ARE CMDS LEFT IN SEQUENCE TBLE: 
4234 027210 50431%: 
4235 027210 021127 177777 CMP CR1), @END 
4236 027214 001574 . BEQ 504328 
4237 027216 022711 000040 cep s @UMP..C,.CR1) sIS THIS A JUMP CMD? 
4238 O27222 001024 BNE 6% sBR IF NOT. 
4239 027224 06270 ADO #2,R1 sLET R1 := R1 + 2 sPOINT TO BRF. 
4240 0272 012167 154210 MOV CR1)+,JLOC sSAVE BRF CLOCATION). 
4241 027234 022167 154202 CMP CR1)+, JLOOP sHAS LOOP COUNT BE SATISFIED? 
4242 001 BNE 1% sIF » JP AGAIN 
4243 027242 062701 000002 ADD #2,R1 sIF SO, ADJUST SEQ POUNTER 
4244 027246 000760 BR sAND GO TO NEX . 
4245 027250 005267 154166 18: INC sUPDATE THE L 
4246 027254 012701 003540 MOV @CMDSEQ,R1 sINIT CMD SEQ TABLE POINTER. 
4247 027260 005367 154160 26: DEC sDECR LOCATION COUNTER. 
4248 027264 001751 BEQ 3% sIF THIS IS THE RIGHT LOCATION TO JMP TO. GO SET 
4249 027266 062701 000010 ADO #10,R1 sIF NOT. UPDATE SEQ POINTER TO NEXT CMD. 
rity O27272 000772 BR 26 100 IT AGAIN. 
4252 027274 022711 000020 68: CMP = @OLY.C,CR1) sOELAY? 
4253 027300 001026 BNE 4% s8R IF NOT. 
42354 027302 ADO #4,R1 iRL * LOCATION OF N COUNT. 
4255 027306 011167 154126 MOV CR1), TIMES) sSAVE N COUNT. 
4236 027312 7%: DELAY 1 sGO TO SUPER-WAIT 1 MSEC. 
7312 012727 000001 MOV #1,CPC)+ 
027316 000000 . WORD 
027320 016727 152572 MOV LSOLY.CPC)+ 
027324 000000 . WORD 
027326 005367 177772 DEC ~6(PC) 
027332 001375 BNE -- 
027334 005367 177756 DEC -22(PC) 
027340 001367 BNE --20 
4257 027342 005367 154072 DEC TIME2 
4258 027346 001561 BNE 7% 
4259 027350 062701 000004 ADO 04,R1 sLET R1 := Ri + 04 sPOINT TO NEXT CMD. 
4260 027354 000715 BR 3% sGO CHECK NEXT CMD. 
4261 027356 004767 161610 4%: JSR_ PC, SETUP sGO_ SETUP THE COMMAND BLOCK. 
4262 027362 50433:  ,WHILE NCNT LT NCNT1 00 sWHILE THERE ARE RECORDS REMAINING: 
4263 026767 154024 154024 CMP NCNT,NCNT1 
4264 027370 002105 BGE 
4265 027372 004767 161466 JSR PC.CMDAC sSTORE CMD ASCII IN ERROR MSG. 
4266 027376 004767 161122 JSR PC, EXSUB sISSUE CMD TO ALL.AWAIT INTS,CHECK STATUS. 
4267 027402 026727 154012 100017 CMP CMOWRD , @GES IF CMD IS GET STATUS THEN: 
4268 027410 001002 BNE 50435% 
| ons 027412 004767 167774 JSR PC, PRXST sPRINT EXTENDED STATUS REGISTERS. 
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TEST S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 

4271 027416 504358: 
4272 027416 004767 170056 JSR PC, CKHAE sCHECK HALT AFTER EACH CMD FLAG. 
42735 027422 012702 1 MOV #1, iSET ALL_UNITS AT BOT/EOT. 
4274 027426 004767 167450 JSR_PC,FIRSTU sFIND FIRST UNIT. 
4275 027432 504368: sWHILE DEVTBLC(RS) NE END DO sWHILE THERE ARE MORE UNITS: 
4276 027432 O26527 002604 177777 CMP DEVTBLCRS), @END 
4277 027440 001 BEQ 504378 
4276 027442 032767 000400 153750 BIT @M00 .CO, CMOWRD sIF CMD IS REVERSE THEN: 
4279 027450 001406 BEQ $ 
42860 027452 0352765 000002 003502 BIT #x0.B0T ,EOTFLGCRS) sIF NOT AT BOT THEN: 
4261 027460 001001 BNE 50441% 

027 CLR sCLEAR EOT/BOT FLAG. 
4264 027464 504418: 
4268S 027464 000411 50442% sELSE IF CMD IS NOT REVERSE: 
4266 027466 504408: 
4267 027466 032765 000001 003502 BIT @x0.EOT ,EOTFLGC(RS) 
4268 027474 001 BEQ 50443% 

027476 032767 000001 153714 BIT @CMD .CO,CMDWRD 

02 001001 BNE 50444% 
4291 027506 50443%: 

sIF NOT AT EOT OR NOT A MOTION CMD THEN 
4293 027506 005002 CLR Re sLET R2 := 00 sCLEAR EOT/B0T FLAG. 
4295 027510 50444%: 
4297 027510 50442%: e 
4296 027510 004767 167434 JSR PC ,NEXTU sFIND NEXT UNIT 
g 

4300 0275 000746 BR 50436% 
4301 027516 504378: 
4302 027516 000001 CMP R2,@1 sIF ALL UNIT ARE AT EOT/B0T THEN: 

O02 001016 BNE sé 
4304 027524 016767 1 153662 MOV NCNT .NCNT1 sFORCE TERMINATION OF COMMAND. 
4305 027532 7 153656 INC NCNT1 
4306 02 1 7 153762 INCB ALLEOT sFLAG ALL UNITS AT EOT/BOT TO ALLOW VERIFY OF D 
4307 027542 026727 153660 000002 CMP CMOLG, #2 ; 1s WHEN WRITING IS CURRENT COMMAND 
4308 027550 001 BNE 50446 
4309 027552 004767 000056 JSR PC, TSWEOT ;:GO WRITE/READ REV ONE RECORD BEYOND EOT 
4311 027556 50446%: 
4313 027556 000402 BR 50447$% 
4314 027560 50445%; 
4315 027560 105067 155740 CLRB ALLEOT sWHEN NOT ALL SEOT, CLEAR FLAG 
4317 027564 50447%: 
4318 027564 005267 153622 INC NCNT sUPDATE RECORD COUNT. 
aaae 027570 016767 153624 153626 MOV CMOWRD, sSAVE PREVIOUS COMMAND WORD. 
4321 027576 000671 BR 50433¢ 
4322 027600 50434%: 
4323 027600 004767 166262 JSR PC, VFYDAT sIF LAST CMD WAS A WRITE VERIFY, THEN GO 
aes sVERIFY THE LAST N RECORDS OF DATA. 
4326 027604 000601 BR 504318 
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1 
| 
SEQ 131 
ExIT TST 
TRAP CsExItT | 
~ WORD L10037-. 
' SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 
, THE COMMAND SEQUENCE TABLE. 
' INPUTS: R2 © POINTER TO SOFT “P~ TABLE 
; REGISTERS: R3. 
S: 
PTCHDS: :MOV €R2)+,R3 1R3 © COMMAND TABLE INDEX. 
ASL. R3 
MOV CMDTBL(R3),(R1)> 1MOVE COMMAND WORD. 
MOV (R2)+,(R1)6 sMOVE @ OF BYTES. 
MOV (R2)+,CR1)o sMOVE @ OF OPERATIONS. 
MOV (R2)+,CR1)o sMOVE PATTERN CODE. 
RTS PC 
: SUBROUT INE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 
i 
; OUTPUTS: 
, REGISTERS: 
2 CALLS: CMDAC . EXSUB , CKHAE 
a 
JSR PC. EXSUB sWRITE ONE RECORD BEYOND EOT 
JSR PC, CKMAE 1S0 THAT READ SHORTER STOP DISTANCE 
sSHALL POSITION HEAD IN CLEAN IRG GAP 
MOV @2,R0 sSET UP FOR EOT 
153542 18: MOV CMDURD.PCHDWD  i:LET PCHDWD :© CMDWRD REPOSITION TAPE 
153530 MOV @ROR , CHDURD sLET CMDMRD :© @ROR ;BEFORE EXTRA RECORD 
153530 MOV 04 ,CHOLG BY READING REVERSE 
152424 MOV CHOURD.CHDPKT  ,LET CMDPKT :© CMOWRD CLR.BY O@RF.C 
152416 BIC OBRF .C. CHDPKT 
153502 MOV CMDPKT. CHDSAV sLET CMDSAV : © CMDPKT , THAT RECORD TO ALLOW 
1 MOV _—_—CDATARDCHDPKT+CP. ADL NEXT COMMAND IN THE 
JSR PC,CMDAC sTABLE TO BE EXECUTED 
JSR PC, EXSUB 
JSR PC, CKHAE 
DEC RO sFOUND EOT YET? 
BNE 18 1NO,KEEP GOING 
RTS PC s YES, RETURN 
EVEN 
ENDTST 
110037; 
TRAP - CSETST 
ENOMOD 
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HARDWARE PARAMETER CODING SECTION 
ana -SBTTL HAROWARE PARAMETER CODING SECTION 
4 
4333 027752 BGNMOO 
4384 
4365 pee 
4386 + THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
4387 3 THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
4388 8 ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
4389 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
4390 s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
4391 3 WITH THE OPERATOR. 
4392 gee 
4393 
4394 027752 BGNHROD 
000042 «WORD L10040-L SHARD/2 
— 027754 LSHARD:: 
4396 027754 GPRMA TSSADR,O,0,160010,177564, YES 
027754 000031 -WORD TSCODE 
027756 030012 -WORD TSSAOR 
027760 160010 -WORD TSLOLIM 
027762 17 -WORD TSHILIM 
4397 027764 GPRMD TSSVCT,2,0,777,60,776, YES 
027764 001032 -WORD T$ 
027766 0 -WORD TSSVCT 
027770 000777 -WORD 777 
772 -WORD TSLOLIM 
027774 000776 -WORD TSHILIM 
4398 027776 GPRMD TSSUNT .4,0,1.0.1,NO0: 
027776 002022 -WORD TSCODE 
030000 030036 -WORD TSSUNT 
030002 000001 -WORD 1 
030004 000000 «WORD TSLOLIM 
030006 000001 -WORD TSHILIM 
4399 030010 EXIT HRO 
030010 024004 -WORD TSCODE 
4401 -NLIST BEX 
4402 030012 124 123 104 TSSADR: .ASCIZ /TSOB ADORESS/ 
4403 030027 126 105 105 TSSVCT: .ASCIZ /VECTOR/ 
4404 030036 123 105 114 TSSUNT: .ASCIZ /SELECT DRIVE 0-1/7 
4405 -LIST BEX 
4406 - EVEN 
4407 
4408 030060 ENDHRO 
-EVEN 
030060 L10040: 
Sent -SBTTL SOFTWARE PARAMETER CODING SECTION 
4412 oe 
4413 s THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
hai s THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES THE 
4415 s MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
4416 s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
4417 s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
4418 s WITH THE OPERATOR. 
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4419 
44 
4421 030060 
030060 
030062 
4422 030062 
030062 
030064 
030066 
4423 030070 
030070 
030072 
030074 
4424 030076 
0300 
030100 
0301 
4425 030104 
0301 
030106 
030110 
4426 030112 
030112 
030114 
030116 
4427 030120 
030 
4428 030122 
030 
030124 
030 
4429 030130 
030130 
030132 
030134 
4430 030136 
0301 
0301 
0301 
4431 030144 
0301 
030146 
030 
4432 030152 
030152 
4433 030154 
030134 
030156 
030160 
030162 
030164 
4434 030166 
0301 
030170 
030172 
030174 
030176 
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“+ 


CLAM,O,1, VES 


RRVM,O,400, YES 


RCVERM, 2,400, YES 


HAEM.2,1, VES 


FASi eer A 


IRECM,.6,400, YES 


x 


ER NEXTSP 


BADTM,4,1.YES 


DINTM,6,1,YES 


IREM,12,1,VES 


CHGM,10,1,YES 


ENOSP1 
CHARM, 14,0,377,0,777, YES 


ee 


; 


CMD2M,16,0,57,1,535, VES 


SEQ 133 


-WORD L10041-L8SOFT/2 


«WORD TSCODE 

-WORD CLAM 

WORD 

«WORD TSCODE 

«WORD RRVM 

- WORD 

-WORD TSCODE 

«WORD RCVERM 

. WORD 

«WORD TSCODE 

-WORD HAEM 

«WORD 1 

-WORD TSCODE 

-WORD IRECM 

«WORD 400 

-WORD TSCODE 

-WORD TSCODE 

«WORD BADTM 

«WORD 1 

-MORD TSCODE 

«WORD OINTM 

«WORD 1 

-WORD TSCODE 

. WORD 

«WORD 1 

«WORD TSCODE 

. WORD 

«WORD 1 

-WORD TSCODE 

-WORD TSCODE 

- WORD 

«WORD 377 

-WORD TSLOLIM 

«WORD TSHILIM 

-WORD TSCODE 

-WORD CMD2M 

«WORD 37 

-WORD TSLOLIM 

. WORD TSHILIM 
oe. 
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GPRMO 
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E11 
BPCRM,20,0,-1,1,DATCNT, YES 
NUMBM,22,0,-1,1,77777, VES 
PATTM,24,0,17,0,10, YES 
CMO3SM,26,0,37,1,33, YES 
BPCRM,30,0,-1,1,DATCNT, YES 
NUMBM, 32.0,-1,1,77777, YES 
PATTM, 34.0,17,0,10, YES 
CMD4M,36,.0,37,1.53, VES 
BPCRM,40,0,-1,1,DATCNT, YES 


NUMBM, 42,0, -1,1.77777, VES 
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SEQ 134 
TSCOOE 
— 
TSLOLIM 
TSHILIM 
TSCODE 
1 

TSLOLIM 


TSHILIM 


TSCODE 
PATTM 


17 
TSLOLIM 
TSHILIM 


TSCODE 
CMD3M 
37 
TSLOLIM 
TSHILIM 
TSCODE 
BPCRM 


-1 
TSLOLIM 
TSHILIM 
T$COOE 
“7 
TSLOLIM 


TSHILIM 


TSCODE 
PATTM 





